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Preface 


The samples contained in this publication are provided for the support 
of education and installation of SNA products. The job control and 
sample definitions must be adjusted for each system. The samples have 
not been submitted to a formal IBM test. The samples are not intended 
to be implemented as they are shown in this material. These samples are 
coded to a specific network configuration and terminal features and are 
not compatible with any other installation configuration or processing 
requirements. 
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CHAPTER 1 : INTRODUCTION 


The purpose of this guide is to provide information that may help in 
installing SNA products on either a DOS/WS or OS/VS operating system* 
This document provides samples which are coded to a specific network 
configuration and terminal hardware. The samples included in this 
document are included only as a guide and should be updated for a 
specific installation. 


The samples in this guide will support the following products: IMS/VS, 
CICS/VS, TSO, JES2CMVS), RTAM(VSl), VTAM, ACF/VTAM, ACF/TCAM, TCAM 9, 
TCAM 10, NCP/VS CRel. 5), ACF/NCP/VS, RES (VS1), VSPC, and NOSP. Unless 
otherwise directed by the specific product guides, these coding samples 
are recommended for initial system checkout. Every attempt has been made 
to provide coding samples that are compatible with all of the IBM 
programs that support SNA. 


PRODUCTS SUPPORTED BY THIS DOCUMENT 

Advanced Communications Function for the Network Control Program/Virtual 
Storage (ACF/NCP/VS) 

Advanced Communications Function for the Telecommunications Access 
Method (ACF/TCAM) 

Advanced Communications Function for the Virtual Telecommunications 
Access Metnod (ACF/VTAM) 

Virtual Storage Access Method (VSAM) 

Customer Information Control System/Virtual Storage (CICS/VS) 

Information Management System/Virtual Storage (IMS/VS) 

Virtual Storage Personal Computing (VSPC) 

Network Operation Support Program (NOSP) 

Disk Operating System/Virtual Stoage (DOS/VS) 
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Operating System/Virtual Storage 1 COS/VSX) 


Remote Entry System (RES) 

Remote Terminal Access Method (RTAM) 

Operating System/Virtual Storage 2 (0S/VS2) 

Multiple Virtual Storage (MVS) 

Single Virtual Storage (SVS) 

Time Sharing Option (TSO) 

Job Entry Subsystem 2 (JES2) 

Telecommunications Access Method (TCAM) 

Virtual Telecommunications Access Method (VTAM) 

2741 Communications Terminal (2741) 

2740 Communications Terminal (2740) 

TUX Line Control Type (TUX) 

3270 Information Display System (3270) 

3600 Finance Communication System (3600) 

3650 Retail Store System (3650) 

3767 Communication Terminal (3767) 

3770 Data Communication System (3770) 

3790 Communication System (3790) 

3704/3705 Network Control Program/Virtual Storage (NCP/VS) 
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DEVELOPMENT ENVIRONMENT 


CHAPTER g : . Q . E VEUJ- PMt-HT ENVIRONMENT 


g.l : HARDWARE CONFIGURATION 


In the samples of this publication the following hardware was used: 

The central processor is a System/370 Model 158. The DOS/VS system was 
defined with 8.0 megabytes of real storage and 2.0 megabytes of virtual. 
Two 3340 drives are defined for the DOS/VS testing and operation. Two 
3330's are defined for the 0S/VS1 system plus a DASD work pack. The 
0S/VS2 (MVS) system required two 3330 Model l's* two 3330 Model 11's, 
and one 3340 disk drives. The MVS system was defined with 6 Megabytes of 
real storage. Two 3705's are defined for sample purposes. One has 112K 
of storage and Channel Adapter Type 2. The second 3705 is a Model 2 
with 256K of storage and two Channel Adapter Type 4's. All IBM 3270 
products were available* various models of the IBM 377X product family 
were tested* and a IBM 3790 was used on dial facilities. 
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DEVELOPMENT ENVIRONMENT 


£.1 : SOFTWARE RESOURCES 

PROGRAMS INSTALLED 


NCP/VS 


Network Control Program/VS-OS/VS 
Network Control Program/VS-DOS/VS 


(Program number 5744-BA2) 
(Program number 5747-AJ2) 


ACF/NCP 

NCP/SSP (Required for ACF/NCP) 
ACF/NCP SSP 
ACF/NCP PP 
DOS/VS 


(Program 

(Program 

(Program 


number 5747-CHI) 
number 5735-XX3) 
number 5735-XX1) 


Disk Operating System/VS 
OS/VS 


(Program Number 5745-010) 


0S/VS1 Release 6.0 
0S/VS2 Release 3.7 
VTAM 

VTAM for DOS/VS 
VTAM (MVS) SU 1 
TCAM/VS 

TCAM 9 (MVS) SU 2 
TCAM 10 (MVS) SU 36 


(Program number 5/41-VS1) 
(Program number 5752-VS2) 


(Program Number 5745-010) 
(Program number 5752-VS2) 


(Program number 5752-VS2) 
(Program number 5752-VS2) 
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ACF/TCAM VI 

ACF/TCAM SCP SU59 
ACF/TCAM BASE SU59 
ACF/TCAM MSNF SU59 
ACF/VTAMR1 

ACF/VTAM Release 1 (DOS/VS) 

VTAM SCP for ACF/VTAM SU 40 
ACF/VTAM SU 35 for MVS 
ACF/VTAM Mutisystem Networking Fac 
(MSNF) SU 34 for MVS 
NOSP 

Network Operation Support Program 
SU 45 
IMS/VS 

1MS/VS VI R1.4 
IMS/VS VI R1.5 
CICS/VS 

CICS/VS V1R3.0 (PTF 502) 


DEVELOPMENT ENVIRONMENT 

(Program number 5735-RC1) 

(Program number 5735-RC1) 

(Program number 5735-RC1) 

(Program Number 5747-RC3) 

(Program number 5735-RC2) 
lity 

(Program number 5735-RC2) 

(Program number 5735-XX2) 

(Program number 5740-XX2) 

(Program number 5740-XX2) 

(Program number 5740-XX1) 
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DEVELOPMENT ENVIRONMENT 
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GENERAL INFORMATION 


CHAPTER 1 : GENERAL INFORMATION 


1.1 ! A-QC ESS METHOD DEPENDENCIES 

The following table provides access method dependencies for specific NCP 
generation macros. 


Access 

Method 


NCP 


PCCU 

Macro 


Macro*s 

BUILD 

Macro 


HOST 

Macro 


VTAM/DOS 


ONLY 


MAXSUBA MAXBFRU 
Default=15 REQUIRED 


UNITSZ BFRPAD STATMOD 
DEFAULT=88 =15 =N0/YES 


VTAM/OS | ONLY 


ACF/VTAM I ONLY 


DEFAULT=15 REQUIRED 

DEFAULT=15 REQUIRED 


DEFAULT=84 =28 


DEFAULT=64 =0 


=YES 


=YES 


TCAM 10 
and 

ACF/TCAM 


NA 


(INTRO 

MACRO) 


UNITSZ= MIN=17 =YES 

KEYLEN=>44 
(INTRO 
Macro) 

148 to 156(START) 


EXTM 


NA 


DEFAULT=31 =10 
(ETMCFG (ETMCFG 
Macro) Macro) 


DEFAULT=156 =2 
(ETMFCG 
Macro) 


=NO 


NCP 


NA 


NO DEFAULTS 


NO DEFAULT =28 =NO 
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GENERAL INFORMATION 


I.£ : DEVICE MAXDATA VALUES 

The following table specifies the MAXDATA value (PU macro) for various 
SNA physical units operating on an SDLC link. The MAXDATA operand must 
not be defaulted. 

DEVICE VALUE = BYTES 

IBM 3271/3275 261 - Maximum Value* Segmentation allowed. 


IBM 3274/3276 265 - Maximum Value* Segmentation allowed. 


IBM 3600 VARIABLE - Function of buffer size 

defined in CPGEN(3600>. 


IBM 3614 265 if not connected to 360X. 


IBM 3650 265 - Required value* segmentation not allowed. 


IBM 3767 261 - Required value* segmentation not allowed. 


IBM 3774/3775 265 - Required value* segmentation not allowed. 


IBM 3776/3777 265/521 - Required value* segmentation not allowed. 

Host application must support same value. 
The NCP can be generated with 521 and the 
actual value specified in the Bind for the 
application to LU session. 


IBM 3790 265 - Required value* segmentation not allowed for 

'Batch* sessions. 

Segmentation allowed for DSC LU's. 
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GENERAL INFORMATION 


1.1 * mi££ ERROR RECOVERY 


The following table lists the reccommended values for the RETRIES 
operand in the NCP 'LINE' and *PU' macros. 


X RETRIES OPERAND 


OPERAND 


/RETRIES = ( m,t,n) 

where m = immediate retries/ 

t = pause between retries/ 
and n s retry cycles. 


then* 


for SDLC, if REPLYTO = 1, M = 5, t = 10, n = 3, 
retry cycle = (( 5 X 1) MO ) X 3 ) M S X 1 ) : 50 SECONDS 


RECOVERY SEQUENCE BJ&SUBBSBI1 


IBM 

3600 

- function of 3600 CPGEN* value should be less than 
3600 generated time* 

IBM 

3650 

- 50 to less than 60 seconds. 

IBM 

3767 

- greater than 20 seconds. 

IBM 

3790 

- adjust for link quality* 60 seconds as a start. 

IBM 

3770 

it t» 

IBM 

3270 (SDLC) 

If tv 
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GENERAL INFORMATION 


1.4 : INSTALLATION SEQUENCE ( VTAM ) 


This installation sequence is only a guide and many steps are omitted. 


OBTAIN MANUALS . 

Order all manuals necessary for the appropriate operating system. 


MMS PROGRAMS 

All the programs should be obtained from PID. 


SYSTEM INSTALLATION 

Determine the hardware configuration required for the system. The 
system design has to be approached from multiple levels. At least look 
at it with the following approaches: 

X PHYSICAL CONFIGURATION 

It is necessary to plan the hardware configuration in order to 
generate the NCP load module* the local 3277 definition for VTAM* 
and the I/O assignments for the system generation phase. 

X OPERATING SYSTEM 

The operating system will only be concerned with the devices 
locally attached to the system. Mhen generating the operating 
system* special consideration must be given for the VTAM 
parameters* including the size of the partitions for DOS and the 
VTAM workspace for 0S/VS1. 


The following steps should allow the user to bring up the system and 
allow operation at various check points. 

1. SYSTEM DEFINITION 

Unless using 0S/VS2* the default buffer parameters should not be 
used. The samples in this document can be used* providing the 
network is similar to the samples. Care should be taken in the 
specification of LFBUFCDOS/VS) and IOBUFCOS/VS) to insure that the 
values for UNITSZ and MAXBFRU defined in the NCP are used to 
calculate the buffer values. The quantity of LFBUF or IOBUF must 
exceed the requirement for MAXBFRU. The MAXSUBA value in the 
start definition should agree with the NCP value. All SUBAREA 
values should be checked to insure each major node has an 
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GENERAL INFORMATION 


exclusive value, 

2. START CONFIGURATION 

If local 3277*s are available, the initial configuration should 
only include the local 3277*s and the application definition node. 
After these two nodes are active, then the NCP portion of the 
system can be checked out. If VTAM indicates an error in the node 
definition, it may not be necessary to stop VTAM, If the node did 
not become active, the node definition can be updated, and varied 
active by the console operator. If the node was activated by VTAM, 
the node must be varied inactive. In addition, if the system is 
OS/VS, the node name must be deleted from the SYS1.VTAM0BJ data 
set. Otherwise, when the node is activated again, the old 
defintion will still be used even though the definition source was 
updated. 

3. LOCAL 3270 DEFINITION 

For the first testing phase, the local definition should not 
include a LQGTAB or a LOGAPPL statement. All unavailable 3277*s or 
328x v s should be defined with an ISTATUS=INACTIVE. Only one 3277 
is required to check out that VTAM has initialized and that a VTAM 
user application works. before the ^OGTAB 1 operand is added, an 
Interpret table must be assembled, link-edited and stored in 
SYS1.VTAMLIB, if OS/VS, or the core-image library, if DOS. The 
1 LOGAPPL* operand may be used, if the application name is 'NETSOL* 
or the application name is defined in the application definition. 
The application program need not be available. 


GENERAL HINTS 

NR2I defaults to yes on a SDLC line. Normally, NRZI can be used with 
most modems. IBM integrated modems and the IBM 3872 require NRZI=YES. 
When in doubt, specify NRZI=NG, and monitor MDR recordings for line 
errors and change if required. All SDLC PU types 1 and 2 will work 
without NRZI. 


NETSOL can be used to check out most basic devices before trying them 
with an application program. It may easily be modified to provide 
special test messages. NETSOL can be run in its own region if 
appropriate JCL is generated. 

Remote 3270*s will not be polled unless they are logged on to an 
application program. 
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GENERAL INFORMATION 


Dial ports will disconnect if not logged on to an application program 
before being used. 

To help determine the error condition* the use of line trace on the 
failing line should be considered. Also* before varying the cluster 
active* start 10 trace on the NCP and the cluster. 


GENERAL OPERATING CONSIDERATIONS 

Retain information should always be obtained for VTAM and NCP. There 
are problems described in Retain that can be bypassed by controlling 
operating procedures. 


The 370X* if required* will always be loaded when activated by VTAM if 
ANS is not specified in the NCP 'BUILD* macro and the NCP was not 
deactivated normally. If using PEP* ANS must be specified if VTAM is 
not to load the 370X. If the 370X does not contain the desired NCP 
load module* VTAM will load the 370X with out operator intervention. 


Use of the *F TPRINT* command to print trace records during production 
should be avoided because 'TPRINT* will degrade the DOS/VS system. In 
fact* most DOS and VTAM operations appear to wait until the TPRINT 
operation is completed. It may be necessary to develop a print 
application program that operates in one of the other partitions* 
instead of having VTAM do this function. 


If you give a command to activate a NCP that is already active* VTAM 
will try to activate all elements of the network defined to VTAM. This 
can cause a considerable slowdown as the NCP tries to activate 
terminals* clusters* etc.* that may not be operational. It is 
recommended that you define to VTAM only those resources that are 
physically available. 


An application programmer should expect one character messages from 
3270's and test for 'CLEAR* and *PF' keys. 


When using the 3600* the 3600 must respond to the 'CLEAR* and the 
'UNBIND' in order to terminate a session. An application program 
running under DOS VTAM may not be cancelled until a response is sent 
back to VTAM. Always specify the time-out value in the 3600 CPGEN as 
greater than the total retry time of the NCP. 
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CHAPTER 4 : VTAM SESSION PARAMETERS 


The following table indicates when VTAM 'only' parameters are required. 
The examples throughout the guide indicate the use of these parameters. 
The MODETAB and USSTAB examples include support for most applications. 
The should be modified to support only the applications required by the 
user. 


1 

1 

VTAM 

|ACF/VTAM| 

START 

I 3272 

| BSC | 

OTHER 

1 

SDLC 


1 

1 

II 

1 1 

STOP 

| LOCAL 

1 3270 | 

BSC 

1 



1 

1 


I ONLY IFl 


I NETSOL 

IVTAM II | 


1 



LOGTAB | 

YES 

I NETSOL I 

YES 

| YES 

1 YES; | 

YES 

1 

NO 


1 


1 1 


1 

1ACF/VTAM| 


1 



1 


1 1 


1 

|NO IF | 


1 



| 


1 1 


1 

|PU = YESl 


1 



i 


i i 


i 

I ACF/VTAM| 


1 



USSTAB I 

YES 

1 YES | 

NO 

i NO 

IIF PU = | 

NO 

1 

YES 


1 


| 1 


ICNote 1) 

1 YES | 


1 



1 

SNA 

1 1 


|ACF/VTAM 

1ACF/VTAMI 


1 



MODETAB| 

ONLY 

1 YES | 

NO 

I YES 

1 YES | 

1 1 

NO 

1 

YES 


1 


IACF/VTAMI 


|ACF/VTAM 

1 — 1 

1ACF/VTAM1 


1 



DLOGMODl 

NO 

1 ONLY | 

NO 

I YES 

1 YES 1 

NO 

1 

YES 


1 

SSCPFM I 

YES 

1 1 
1 YES | 

NO 

1 

I NO 

1 1 

1 YES I 

i i 

NO 

1 

1 

YES 


1 


1 1 


1 

1 - — 1 

1 l 


1 

3271 


BNNSUP I 

1- 1 

YES 

1 YES | 

1 - 1 

NO 

| NO 

.1 - 

1 NO | 

1 - 1 

NO 

1 

- 1 - 

ONLY 
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1- 

1 

SNA 

- 1 

1 IBM 

— 

USER 

|- 

| COMMENTS 

1 


1 DEFAULT 

i i 

SUPP 

1 

1111 

1 I 1 1 

- 1 - 

1 


I .- 

1 

— 

i 

| REQUIRED FOR NON-SDLC LOGON VIA 

LOGTAB | 

NO 

I NO 

YES 

| NETSOL. 

i 


I YES 


1 USSTAB OR FOR BOTH DOS/VS AND 

USSTAB | 

] 

YES 

I (LOGON 

I APPLID) 

YES 

I OS/VS LOGON (USSTAB PREFERRED). 

i 


I YES 

YES ONE 

I REQUIRED IF APPLICATION DOES NOT 

MODETABl 

YES 

1 (3767) 

MODETAB 

| SUPPLY BIND PARAMETERS. THE 

| 


1 

PREFER. 

| DEFAULTS ARE NOT USABLE. 

i 


1 


| POINTS TO ENTRY IN INDICATED OR 

DLOGMODl 

YES 

I NO 

YES 

| IBM SUPPLIED MODETAB. 

1 


1 


I VTAM SUPPLIED LEADING GRAPHICS: 

SSCPFM | 

1 

1 

YES 

1 YES 

1 

1 

YES 

| 1) FORMATTED, DEFAULT 3600, 3650, 

I 3790; 2) UNFORMATED USSSCx 3274, 

I 3276,3770; 3) 3271 BSC. USS 3270 

1 

BNNSUP | 

YES 

1 

1 YES 

NO 

| REQUIRED FOR IBM 3271 Model 11/12 


Note 1 - Yes for ACF/VTAM Version 2. 

VTAM SESSION CONTROL PARAMETERS ( CONT .) 


PAGE 4-2 


SNA PRODUCT INSTALLATION GUIDE 


G320-6028 (2/79) 


















VTAM SESSION PARAMETERS 


1.1 : INIE&Eg.E T TABLE EXAMPLE 


SAMPLE LOGON INTERPRET TABLE 


The following interpret table can be used with all levels of VTAM. It 
is only used by NETSOL and need not be coded if NETSOL is not used. 
NETSOL is normally required for devices supported by applications using 
the 'BASIC* mode interface. An interpret table is not required for 
remote 3271 BSC controllers when interfacing to ACF/VTAM. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X SOURCE FOR LOGON INTERPRET TABLE X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LOGTAB INTAB 

LOGCHAR APPLID=CAPPLICID,VAPPL),SEQNCE='VAPPL' 

LOGCHAR APPLID=(APPLICID,VAPPL)»SEQNCE='vappl* 

LOGCHAR APPLID=CAPPLICID,CICS),SEQNCE='CICS' 

LOGCHAR APPLID=(APPLICID,CICS),SEQNCE='cics* 

LOGCHAR APPLID S (APPLICID,VTAMWHO)»SEQNCE=*WHO* 

LOGCHAR APPLID=CAPPLICID,VTAMWHO),SEQNCE='who* 

LOGCHAR APPLID=(APPLICID,N0SP1)»SEQNCE='NOSP* ACF/VTAM ONLY 
LOGCHAR APPLID=(APPLICID,NOSPl),SEQNCE='nosp' ACF/VTAM ONLY 
LOGCHAR APPLID S (APPLICID,TSO)»SEQNCE=* LOGON* 3277/MVS ONLY 
LOGCHAR APPLID=(APPLICID,TSO),SEQNCE=*logon* 3277/MVS ONLY 
LOGCHAR APPLID=CAPPLICID,ISTOLTEP),SEQNCE='TEST* 

LOGCHAR APPLID=(APPLICID,ISTOLTEP),SEQNCE='test• 

LOGCHAR APPLID=(APPLICID,IMS),SEQNCE='IMS' OS/VS ONLY 
LOGCHAR APPLID=(APPLICID»IMS),S€QNCE=*ims* OS/VS ONLY 
LOGCHAR APPLID=CAPPLICID,INQUIRY),SEQNCE=*INQUIRY* 

LOGCHAR APPLID = (APPLICID,INQ),SEQNCE-'INQ* 

ENDINTAB 

END 


NOTES- The interpret table is required in order to allow non-SDLC and 
local 3270(NON-SNA) terminals to 'logon' to application programs via the 
Network Solicitor. The appropriate System Programmers Guide for VTAM or 
ACF/VTAM describes the generation and purpose of the interpret table. 
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1-1 * ftODEI A B EXAMPLES 

SAMPLE MODETAB FOR IBM 3767 

ALL3767 MODETAB 

MODEENT LOGMODE-INTERACT* FMPROF=X'03* >TSPROF = X*03 *, X 

PRIPROT=X* B1*,SECPROT=X’AO•,COMPROT=X'3040• 

MODEENT LOGMODE=IMSEXCP> FMPROF=X’03'»TSPROF=X'03'» X 

PRIPROT=X* B1*,SECPROT=X»90»,COMPROT=X'3040• 

MODEENT LOGMODE=DEFFLIP> FMPROF=X* 03’»TSPR0F S X’03*» X 

PRIPROT=X' F9 *,SECPROT=X’E8*,COMPROT=X» 3081» 

MODEENT LOGMODE=EXECFLIP,FMPROF=X , 03»,TSPROF=X , 03'’, X 

PRIPROT=X'F9',SECPROT=X'D8 *,COMPROT=X'3081» 

MODEENT LOGMODE=EXECCONT,FMPROF=X'03',TSPROF=X’03», X 

PRIPROT=X’F9•,SECPROT=X’D9',COMPROT=X’3041» 

MODEENT LOGMODE=BOB»FMPROF=X'03'»TSPROF=X'03 ', X 

PRIPROT=X» F9»,SECPROT=X'D8',COMPROT=X'3080 ' 

MODEEND 

END 

NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3767 should also be referenced. 
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SAMPLE MODETAB FOR 3270 C3271 AND 3272 CONTROL UNITS). 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X MODE TABLE FOR 3277 LOCAL <3272 Control Unit) 

X MODE TABLE FOR 3277 REMOTE (3271 Control Unit Model 11/12) 
x MODE TABLE FOR 3277 REMOTE (3271 Control Unit Model 1/2) 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NOSPTAB MODETAB 

MODEENT LOGMODE=DSILGMOD, 

FMPROF=X'02STSPROF=X'02',PRIPROT=X*71», 
SECPROT=X'40',COMPROT=X'2000',RUSIZES=X , 0000', 

PSERVIC=X»000000000000000000000200' 

MODEENT LOGMODE=S3270, 

FMPROF=X'02’,TSPROF=X , 02’,PRIPROT=X'71», 

SECPROT=X'40'»COMPROT=X'2000 * »RUSIZES=X'0000•, 

PSERVIC=X'000000000000000000000200' 

MODEEND 
END 


NOTES- This MODETAB is required if sessions are to be initiated by the 
application or the terminal contains a LOGAPPL parameter. This MODETAB 
is also required for ACF/VTAM. The DSILGMOD entry is required for 
ACF/NOSP. 
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SAMPLE MODETAB FOR 3770 SDLC 


MODE3770 MODETAB 

BAT13770 MODEENT LOGMODE=BAT13770,FMPROF=X'03 *,TSPROF=X* 03»,PRIPROT=X* B* 
1»,SECPROT=X’BO',COMPROT=X’7 080’,RUSIZES=X’8585', X 

PSERVIC-X'013100000000080000000000' 

MODEENT LOGMODE=BATCH,FMPROF=X»03',TSPROF=X , 03', 

PRIPROT=X'A3 , ,SECPROT=X»A1',COMPROT=X , 7080', 
RUSIZES = X'8585’ 

MODEENT LOGMODE=INTERACT>FMPROF=X'03’>TSPROF=X'03 *, 

PRIPR0T=X'B1’,SECPR0T=X'AO’,COMPROT=X» 3040 * 

MODEENT LOGMODE=NOCOMP,FMPROF=X , 03',TSPROF=X , 03 , 
PRIPROT=X , A1 , ,SECPROT=X , A1 , ,COMPROT=X'7080» 

MODEENT LOGMODE=COMP,FMPROF=X’03*,TSPROF=X'03*, 

PRIPROT=X’A3’/SECPROT=X’A3* »COMPROT=X'7080’ 

MODEENT LOGMODE=ASCII,FMPROF=X'03 •,TSPROF=X•03’, 

PRIPROT=X f A1•,SECPROT=X* A1',COMPROT=X* 7880» 

MODEENT L0GM0DE=BUF512,FMPROF=X’03',TSPROF=X'03», 

PRIPR0T=X’A3',SECPR0T=X'A3'»COMPROT=X'7080*> 
RUSIZES=X*8686» 

MODEENT LOGMODE=BUF256» FMPROF=X* 03’>TSPROF=X'03'» 
PRIPROT=X , A3',SECPROT=X»A3 , ,COMPROT=X , 708O», 
RUSIZES=X»8585’ 

MODEENT L0GM0DE=CMPACT,FMPR0F=3,TSPR0F=3,PRIPR0T=X*A3», 
SECPROT=X’A1*,COMPROT=X'7080 *,RUSIZES=X’8585'» 

PSERVIC = X*01106000FI 00808000010040’ 

MODEEND 
END 


NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3770 should also be referenced. 
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SAMPLE MODETAB FOR IBM 3790 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X MODETAB FOR 3790 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MODE3790 MODETAB 

BAT13790 MODEENT LOGMODE=BAT13790,FMPROF=X’03’,TSPROF=X'03’, X 

PRIPROT=X'00 *,SECPROT=X*00’,COMPROT=X» 0000’ 

INQ379Q MODEENT LOGMODE=INQUIRY,FMPROF=X'03',TSPROF=X’03', X 

PRIPR0T=X'B1',SECPROT=X»AO',COMPROT=X'3040’ 

X Tho following MODEENT is required for TSO via ACF/VTAM. 

EMU3790 MODEENT LOGMODE=EMU3790,FMPR0F=X*03’,TSPR0F=X'03’,PRIPROT=X’Bl* 
* »SECPROT=X’B0’,COMPROT=X’3080’,RUSIZES=X'85C7’, X 

PSERVIC=X'020000000000000000000200' 

RJE3790A MODEENT LOGMODE=RJE3790A,FMPROF=X'03»,TSPROF=X'03',PRIPROT=X'Ax 
3’,SECPROT=X'Al'*COMPROT=X'7080',RUSIZES=X'8585' , X 

P5ERVIC=X'01106000FI00800000010040' 

RJE3790B MODEENT LOGMODE=RJE3790B» FMPR0F=X* 03’»TSPROF=X'03'»PRIPROT=X’A* 
3'»SECPR0T=X'A1'»COMPROT=X'708O'»RUSIZES=X'8585' » X 

PSERVIC=X'01102000F1O0800000010040• 

BAT23790 MODEENT LOGMODE=BAT23790,FMPROF=X'03’,TSPROF=X'04’,PRIPROT=X'BX 
1’>SECPROT=X'B0'>C0MPROT=X'7080’ , RUSIZES=X’8585' , X 

PSERVIC-X'013100000000000000000000' 

BLK3790 MODEENT LOGMODE=BLK3790,FMPROF=X’03’,TSPR0F=X'03',PRIPROT=X'BlX 
',SECPROT=X’B0»,COMPROT=X'3080',RUSIZES=X'8585', X 

PSERVIC-X'010000000000000000000000' 

SCS3790 MODEENT LOGMODE=SCS3790 , FMPROF=X'03 ', TSPROF=X'03 *, PRIPROT=X’ BIX 
• ,SECPROT=X»B0»,COMPROT=X’3080',RUSIZES=X'8585' , X 

PSERVIC=X'010000000000000000000000’ 

DSILGMOD MODEENT LOGMODE=DSILGMOD,FMPROF=X’03',TSPROF=X’03',PRIPROT=X'BX 
1',SECPROT=X»90»,COMPROT=X’308O’,RUSIZES=X’85C7•, X 

PSERVIC=X*020000000000000000000200' 

MODEEND 

END 


NOTES - Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3790 should also be referenced. 
The MODEENT 'EMU3790' is required to support the Data Stream 
Compatibility interface with TSO. 
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MODETAB INFORMATION FOR 3276 AND 3274 


The mode tables for the 3274-1A* 3274-1C end 3276 ere identical except 
for RU sizes end 3277 support. The RU sizes supported by the 
controllers ere shown below: 


controller 

3276 

3274-1C 

3274-1A 


MAX RU size 
inbound to host 
2048 
1024 
1024 


MAX RU size 
outbound from host 
unlimited 
unlimited 
1536 


One mode table for the displays attached to each controller type is 
included. This allows independent RU size selection based on the 
controllers capabilities. One mode table would suffice if inbound RU 
was limited to 1024 and outbound RU size was limited to 1536. Mode 
table entry names are the same in each table to allow the use of one USS 
table for all these terminals. 


One mode table is included for all printers regardless of controller 
attachment. This was done for two reasons: 

1. NOSP requires all mode table entry names to be DSILGMOD. This 
precludes having both the NOSP display and NOSP printer entries 
in the same table. 

2. Since it was decided to use the same printer RU sizes with all 
controllers* the printer entries in each table would have been 
identical if they were included in each controller table. 

For this installation it was decided to set pacing and vpacing values in 
the terminal definitions (NCP and VBUILD) to zero and override those 
values when desired by utilizing the mode table parameters PSNDPAC and 
SRCVPAC. Displays and DSC printers normally run with pacing set to 
zero. SCS printers* however* require a non-zero pacing count. Since a 
3287 or 3289 printer can operate in either DSC or SCS mode it is not 
possible to have different pacing counts for the same printer if the 
pacing is determined by the terminal definition. In this installation* 
for example* a 3289 printer could be used with IMS/VS by specifying the 
mode table entry SCS4K. It could also be used in DSC mode by another 
application by specifying the mode table entry DSC4K. 

There are some special considerations for printers operating in SCS 
mode. For 3287 printers the pacing count* RUSIZE and PSERVIC values 
depend on the buffer size in the printer. The 3287 printer has a 2K 
buffer as a standard feature and a 4K buffer as an optional feature. 
The mode table entry names in these examples indicate their respective 
printer buffer sizes. The 3289 printer has a 4K buffer as a standard 
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feature. In all cases a determination must be made regarding the pacing 
count and RU size to be used. Many factors may enter into the decision* 
but the most important performance objective is to achieve overlap of 
printing with data transmission. In these examples* the rationale used 
for the trade-off between pacing count and RU size was to set the pacing 
count to one and set the RU size to the highest value (up to 1024) that 
would still allow printing and transmission to overlap. The 1024 byte 
RU size specified for printers with a 4K buffer is not the absolute 
maximum. The actual maximum RU size depends on the controller type and 
model and can be determined by using the formulae described in the 3270 
Component Description manual (GA27-2749) in the section "RU Lengths". 
It was considered more practical to use a common RUSIZE than to set 
individual maximum sizes. 1536 is actually the maximum common RU size 
that could have been used* but it appears that there is little* if any* 
performance advantage in using an RUSIZE greater than 1024. If an 
application program limits RU lengths to something less than 1024* it 
may be advantagous to use a pacing count greater than one. For an RU 
size of 256 a pacing count of 3 could be beneficial. Pacing counts 
greater than 3 would not generally be recommended unless the RU size is 
much smaller. 
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SAMPLE MODETAB FOR IBM 3274-1A (LOCAL ATTACHED) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x MODE TABLE FOR 3274-1A DISPLAYS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MT3274A MODETAB 

MODEENT L0GM0DE=T3278M2> 

FMPROF=X• 03 •,TSPROF=X» 03»,PRIPROT^X* B1», 

SECPROT=X* 90»,COMPROT=X'3080•,RUSIZES=X»87C7•, 

PSERVIC=X* 020000000000185018507F00 * 

MODEENT L0GM0DE=T3278M3, 

FMPROF=X * 03•,TSPR0F=X* 03',PRIPROT=X»B1», 

SECPROT=X'90 *,COMPROT=X* 3080•,RUSIZES=X'87C7», 

PSERVIC=X'020000000000185020507F00' 

MODEENT L0GM0DE=T3278M4, 

FMPRO F=X * 0 3•,TSPROF=X»0 3',PRIPROT=X'B1•, 

S ECPROT '9 0 *,COMPROT=X'3 080»,RUSIZES=X * 87 C7 *, 

PSERVIC=X* 02000000000018502B507FOO * 

MODEENT L0GM0DE-T3278M1» 

FMPR0F=X'03',TSPROF=X'03',PRIPR0T=X»B1*, 

SECPROT=X'90' /COMPROTsX'SOSO* ,RUSIZES = X*87C7 , » 

PSERVIC=X'0200000OOOOOOC280C507FOO' 

MODEENT LOGMODE=DSILGMOD, MODEL 4 

FMPROF=X’03* »TSPROF=X’03’,PRIPR0T=X*B1», 

SECPROT=X* 90»,COMPROT=X'3080•,RUSIZE$=X'87C7 f , 

PSERVIC-X T 02000000000018502B507FOQ' 

MODEENT L0GM0DE=T3277M2> 

FMPROF=X*03»,TSPROF=X» 03 *,PRIPROT=X'B1», 

SECPROT=X* 90•,COMPROT=X’3080 *,RUSIZES=X'87C7», 

PSERVIC=X f 02000000OOOCOOOOOOO00200' 

MODEENT L0GM0DE S T3277M1> 

FMPROF=X f 03* »TSPROF=X'03* »PRIPROT s X f B1 T » 

SECPROT=X’90 * »COMPROT = X f 3080',RUSIZES = X'87C7 *, 

PSERVIC=X'020000000000000000000100' 

MODEEND 
END 


NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3270 should also be referenced. 
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SAMPLE MODETAB FOR IBM 3274-1C (REMOTE) 


XXXXXXXKKKXXXXXXXXXKXKXXXXXXXXXXXSXXXXXXXXXXXXXXXXXXXKXXXXXXXXKKXXXKXXX 

* MODE TABLE FOR 3274-1C DISPLAYS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MT3274C MODETAB 

MODEENT L0GM0DE=T3278M2* 

FMPROFsX'OS’/TSPROFsX'OSSPRIPROTsX'Bl', 

SECPROT=X'90 f »COMPROT = X'3080'»RUSIZES = X'87F8'» 

PSERVIC=X'020000000000185018507F00' 

MODEENT LOGMODE S T3278M3> 

FMPROF=X'03 *,TSPROF=X f 03•,PRIPROT=X» B1•, 

SECPROT=X'90* »COMPROT S X*3080'»RUSIZES=X'87F8 f » 

PSERVIC=X I 020000000000185020507F00' . 

MODEENT L0GM0DE=T3278M4» 

FMPROF=X•03 *,TSPROF=X» 03 *,PRIPROT=X* B1», 
SECPROT=X*90 , ,C0MPROT=X»3080 , ,RUSIZES=X*87F8», 

PSERVIC=X t 02000000000018502B507FO0' 

MODEENT L0GM0DE=T3278M1, 

FMPROF=X’03•,TSPROF=X*03 f ,PRIPROT=X» BI», 
SECPROT=X f 90»,COMPROT=X , 3080',RUSIZES=X , 87F8», 

PSERVIC=X* 0200000000000C280C507F00' 

MODEENT LOGMODE=DSILGMOD> MODEL 4 

FMPROF=X'03 *,TSPROF=X* 03 *,PRIPROT=X'Bl•, 
SECPROT=X*AO*,COMPROT=X*3080»,RUSIZES=X'87F8', 

PSERVIC=X'02000000000018502B507FOO * 

MODEENT L0GM0DE=T3277M2, 

FMPROF=X* 03'»TSPROF=X'03'/PRIPROTsX'Bl *, 

SECPROT=X'90’ ,COMPROT=X’3080 , ,RUSIZES=X f 87F8', 

PSERVIC=X'020000000000000000000200’ 

MODEENT L0GM0DE=T3277M1, 

FMPROF=X*03»,TSPROF=X'03',PRIPROT=X , Bl'r 
SECPROT=X f 90 , ,COMPROT=X , 3080 , ,RUSIZES=X , 87F8', 

PSERVIC=X'020000000000000000000100' 

MODEEND 
END 


NOTES- Description and specification for MODETAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. The 
component description manual for the 3270 should also be referenced. 
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VTAM SESSION PARAMETERS 


SAMPLE MODETAB FOR IBM 3276 CREMOTE) 


XXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* MODE TABLE FOR 3276 DISPLAYS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

MT3276 MODETAB 

MODEENT L06M0DE=T3278M2, 

FMPROF=X* 03*,TSPROF=X» 03 •,PRIPROT=X * BI*, 

SECPROT=X* 90»,COMPROT=X» 3080’,RUSIZES=X'88F8', 

PSERVIC-X'020000000000185018507F00' 

MODEENT L0GM0DE=T3278M3, 

FMPROF=X» 03 *,TSPROF=X» 03•,PRIPROT=X* Bl', 

SECPROT=X'90 *,COMPROT s X* 3080»,RUSIZES=X*88F8 *, 

PSERVIC=X'020000000000185020507FOO * 

MODEENT L0GM0DE-T3278M4, 

FMPROF=X» 03*,TSPROF=X* 03 *,PRIPR0T=X»B1», 

SECPROT=X* 90*,COMPROT=X* 3080•,RUSIZES=X* 88F8 *, 

PSERVIC-X*02000000000018502B507FO0 f 
MODEENT L0GM0DE=T3278M1> 

FMPROFsX*03* »TSPROF=X*03'*PRIPR0T=X*B1*, 

SECPROT=X» 90»,COMPROT=X* 3080•,RUSIZES=X» 88F8 *, 

PSERVIC=X'020000OOOOOOOC280C507FO0 * 

MODEENT LOGMODEsDSILGMOD, MODEL 4 

FMPROF=X*03* »TSPROFsX*03* »PRIPROTsX*Bl'» 

SECPROT=X*AO* »COMPROT=X*3080 * »RUSIZES=X*87F8 *, 

PSERVIC=X*02000000000018502B507F00* 

MODEEND 
END 


NOTES- This MODETAB provides session parameters for the IBM 3276 for 
various types of sessions. Description and specification for MODETAB 
generation is found in the appropriate System Programmers Guide for VTAM 
end ACF/VTAM. The component description manual for the 3270 should also 
be referenced. 
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VTAM SESSION PARAMETERS 


SAMPLE MODETAB FOR IBM 3287 AND 3289 PRINTERS 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X MODE TABLE FOR 3287 & 3289 PRINTERS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXkXXXXXXXXXXXXXX 
MTNDSPTR MODETAB 

MODEENT LOGMODE=SCS, 

FMPROF=X'03*,TSPROF=X»03»,PRIPROT=X'.B1*, 

SECPROT=X*90',COMPROT=X* 3080 *,RUSI2ES=X.*87C6 *, 

PSERVIC-X*01000000E100000000000000'» 

PSNDPAC=X* 01’,SRCVPAC=X*01» 

MODEENT L0GM0DE=DSC4K, 

FMPROF=X* 03',TSPROF=X» 03*,PRIPROT=X'B1*, 
SECPROT=X'90 , ,COMPR0T=X*30S0»,RUSI2ES=X»8787*, 

PSERVIC=X'03000000000018502B507F00' 

MODEENT L0GM0DE=DSC2K, 

FMPROF=X'03*,TSPROF=X'03’»PRIPR0T=X*B1*, 

SECPROT=X* 90»,COMPROT=X*3080’,RUSI2ES=X*8787•, 

PSERVIC=X* 030000000000185018507F00 * 

MODEENT LOGMODE-DSILGMODf 

FMPROF=X* 03* »TSPROF=X* 03* » PRIPROT=X' B1 •, 

SECPROT=X* 90 *,COMPROT=X*3080*,RUSI2ES=X*8787•, 

PSERVIC=X'01000000E100000000000000 '> 

PSNDPAC=X* 01 *,SRCVPAC=X* 01' 

MODEEND 
END 


NOTES- This MODETAB provides session parameters for the IBM 3287 and 
3289 printers for various types of sessions. Description and 
specification for MODETAB generation is found in the appropriate System 
Programmers Guide for VTAM and ACF/VTAM. The component description 
manual for the 3270 should also be referenced. 
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VTAM SESSION PARAMETERS 


* USSIAB EXAMPLES 


USSTAB FOR 3271 SDLC OR BSC(ACF/VTAM ONLY). 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X USSTAB FOR 3271 MOD. 11/12 (VTAM AND ACF/VTAM) X 

X USSTAB FOR 3271 MOD. 1/2 (ACF/VTAM) X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
VUSS3270 USSTAB 

LOG USSCMD CMD=LOG,REP=LOGON,FORMAT=BAL 

USSPARM PARM=P1,REP=APPLID 
USSPARM PARM=P2,REP=L0GM0DE 
TSO USSCMD CMD=TSO>REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID>REP=APPLID>DEFAULT=TSO 
USSPARM PARM=LOGMODE»REP=LOGMODE»DEFAULT=S3270 
USSPARM PARM=P1,REP=DATA 
NOSP USSCMD CMD=NOSP,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=NOSPl 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=DSILGMOD 
USSPARM PARM=P1,REP=DATA 
CICS14 USSCMD CMD = CICS14»REP=L0G0N> FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=CICS14 
USSPARM PARM=L0GM0DE,REP=L0GM0DE,DEFAULT=S327D 
CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=CICS 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
TEST USSCMD CMD=TEST,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID»REP=APPLID»DEFAULT=ISTOLTEP 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
CICS13 USSCMD CMD=CICS13,REP=L0G0N,F0RMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAUIT=CICS13 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID»REP=APPLID»DEFAULT=IMS 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
VSPC USSCMD CMD=VSPC,REP=LOGON>FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=VSPC 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
TCAM USSCMD CMD=TCAM,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID»DEFAULT=TCAMTCAM 
USSPARM PARM=LOGMODE» REP=LOGMODE> DEFAULT s S3270 
VTAMWHO USSCMD CMD=WHO,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,REP=APPLID,DEFAULT=VTAMWHO 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=S3270 
LOGOFF USSCMD CMD=LOGOFF.REP=LOGOFF.FORMAT=BAL 
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VTAM SESSION PARAMETERS 


USSPARM PARM=APPLID,REP=APPLID 
USSPARM PARM=TYPE» DEFAULT=COND 
USSPARM PARM=HOLD»DEFAULT=YES 

X THE FOLLOWING CODE IS POSITIONAL LY DEPENDENT.DO NOT CHANGE 

XIF DOS/VS> A CHARACTER IS REQUIRED IN COLUMN 16 OF THE TEXT ON 
X ALL THE STATEMENTS CONTAINING 71 BLANKS. 

MESSAGES USSMSG MSG=1»TEXT='MAXIMUM MESSAGE 


USSMSG MSG=2»TEXT='MAXIMUM MESSAGE 


USSMSG MSG=3,TEXT 2 'MAXIMUM MESSAGE 


USSMSG MSG=4,TEXT = 'MAXIMUM MESSAGE 


USSMSG MSG=5,TEXT 5 'MAXIMUM MESSAGE 


USSMSG MSG=6,T EXT=* MAXIMUM MESSAGE 


USSMSG MSG=7,TEXT='MAXIMUM MESSAGE 


USSMSG MSG=0,TEXT='MAXIMUM MESSAGE 


USSMSG MSG=10»TEXT = 'MAXIMUM MESSAGE 
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VTAM SESSION PARAMETERS 


PATCHBK EQU X 

0R6 ISTT0001+1 0R6 BACK TO OVERLAY MESSAGE 

MSG1S EQU x 

DC X'11C260',X'1DE8' 

DC C'INVALID COMMAND SYNTAX, ENTER:',X'11C3F0' 

DC C'LOG applid logmode data Or:' 

DC X*11C6D21D60' 

DC CCICS14' »X'11C7E3' 

DC C'CICS13',X'11C8F3' 

DC C'TSO tsoid/password',X'114AC3' 

DC C'NOSP',X'114BD3' 

DC C'TEST',X'114CE3' 

DC C'WH0’,X’114DF3' 

DC C'VSPC ID=nnnnnn',X'114FC3' 

DC C'IMS* 

MSG1E EQU X 

ORG ISTT0002+1 ORG BACK TO OVERLAY MESSAGE 
MSG2S EQU X 

DC X'11C260»,X'1DE8' 

DC C'X COMMAND NOT RECOGNIZED, ENTER:*,X'11C3F0’ 

DC CLOG applid logmode data Or:' 

DC X'11C6D21D60' 

DC C'CICS14',X'11C7E3' 

DC CCICS13' ,X'11C8F3' 

DC C'TSO tsoid/passMord*,X'114AC3* 

DC C'NOSP',X'114BD3’ 

DC C'TEST',X'114CE3' 

DC CWH0',X'114DF3' 

DC C'VSPC ID=nnnnnn',X'114FC3* 

DC C'lMS' 

MSG2E EQU X 

ORG ISTT0003+1 ORG BACK TO OVERLAY MESSAGE 
MSG3S EQU x 

DC X'11C260' SKIP TO LINE 2 

DC C'X PARAMETER NOT RECOGNIZED, ENTER:',X’11C3F0* 

DC CLOG applid logmode data Or:' 

DC X'11C6D21D60» 

DC CCICS14' ,X'11C7E3' 

DC CCICS13' ,X' 11C8F3' 

DC C'TSO tsoid/passMord' ,X'114AC3» 

DC C'NOSP',X’114BD3 f 

DC C'TEST',X'114CE3' 

DC CMHO* ,X'114DF3* 

DC C'VSPC ID=nnnnnn',X'114FC3» 

DC C'lMS' 
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VTAM SESSION PARAMETERS 


MSG3E 

MS64S 


MSG4E 

MSG5S 


MSG5E 

MSG6S 


MSG6E 


EQU X 

ORG ISTT0004+1 ORG BACK TO OVERLAY MESSAGE 
EQU x 

DC X'11C260' 

DC C'X PARAMETER INVALID, ENTER:»,X'111C3F0’ 

DC C'LOG applid logmode data Or:' 

DC X'11C6D21D60' 

DC C'CICS14',X'11C7E3» 

DC C'CICS13*,X'11C8F3' 

DC C'TSO tsoid/password',X'114AC3' 

DC C'NOSP',X'114BD3 * 

DC C'TEST',X*114CE3' 

DC C'WHO'»X'114DF3' 

DC C'VSPC ID=nnnnnn' 

DC X'114FC3' 

DC C*IMS' 

DC X'1150D2' 

DC C'NOTE: The application may not be active' 

EQU x 

ORG ISTT0005+1 ORG BACK TO OVERLAY MESSAGE 
EQU X 

DC X'11C260» 

DC C'UNSUPPORTED FUNCTION, ENTER:',X'11C3F0' 

DC C'LOG applid logmode data Or:' 

DC X'11C6D21D60' 

DC CCICS14* ,X'11C7E3' 

DC CCICS13' ,X' 11C8F3' 

DC C'TSO tsoid/password',X'114AC3* 

DC C'NOSP',X'114BD3’ 

DC C'TEST',X'114CE3' 

DC C'WHO*,X'114DF3' 

DC C'VSPC ID s nnnnnn' 

DC X'114FC3' 

DC C’lMS' 

EQU X 

ORG ISTT0006+1 ORG BACK TO OVERLAY MESSAGE 
EQU a 

DC X'11C260' 

DC C'SEQUENCE ERROR:' 

DC X'11C6D21D60' 

DC C'l. You are attempting to logoff from a terminal • 

DC C'that is not in session' 

DC X'114CE3* 

DC C'2. You are attempting to logon from a terminal that ' 
DC C’is already in session' 

DC X'114FC3' 

EQU K 

ORG ISTT0007+1 ORG BACK TO OVERLAY MESSAGE 
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VTAM SESSION PARAMETERS 


MSG7S 

EQU 

X 


DC 

X* 11C260' 


DC 

C'SESSION NOT BOUND BECAUSE? * 


DC 

X'11C6D21D60' 


DC 

C’l. This terminal is already in session* 


DC 

X*114CE3* 


DC 

C*2. The host application rejected the logon request* 


DC 

X*114FC2* 


DC 

C’3. The terminal rejected the bind’ 


DC 

X'114FC3* 

MSG7E 

EQU 

X 


ORG 

ISTT0008+1 ORG BACK TO OVERLAY MESSAGE 

MSGOS 

EQU 

X 


DC 

X*11C260' 


DC 

C’COMMAND COMPLETED OK’ 

MSGOE 

EQU 

X 


ORG 

ISTT0009+1 ORG BACK TO OVERLAY MESSAGE 

MSG10S 

EQU 

X 


DC 

X’11C150* 


DC 

C* PALO ALTO SYSTEMS CENTER, ACF/VTAM SYSTEM 


DC 

X*11C3F2’ 


DC 

C’For logon command syntax, press enter* 

MSG10E 

EQU 

X 


ORG 

PATCHBK 

X MAKE 

SURE EACH MESSAGE DOES NOT EXCEED 249 BYTES 

MSG1L 

EQU 

(MSG1E-MSG1S) 

MSG2L 

EQU 

(MSG2E-MSG2S) 

MSG3L 

EQU 

(MSG3E-MSG3S) 

MSG4L 

EQU 

(MSG4E-MSG4S) 

MSG5L 

EQU 

(MSG5E-MSG5S) 

MSG6L 

EQU 

(MSG6E-MSG6S) 

MSG7L 

EQU 

(MSG7E-MSG7S) 

MSGOL 

EQU 

(MSGOE-MSGOS) 

MSG10L 

EQU 

(MSG10E-MSG10S) 

END 

USSEND 


END 



NOTES- This USSTAB simplifies operator logon from the 3271 Model 11/12 
under VTAM 2 and for 3271 f s with PU=YES under ACF/VTAM. Description and 
specification for USSTAB generation is found in the appropriate System 
Programmers Guide for VTAM and ACF/VTAM. 
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VTAM SESSION PARAMETERS 


USSTAB FOR 3767 SDLC 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXX 

X USSTAB FOR 3767 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
ASUSSTAB USSTAB 

106 USSCMD CMD=LOG,REP=LOGON,FORMAT=BAL 

USSPARM PARM=P1,REP=APPLID 
USSPARM PARM=P2*REP=L0GM0DE» 

USSPARM PARM=P3,REP=DATA 
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=IMS 
USSPARM PARM=LOGMODE,DEFAULT=INTERACT 
USSPARM PARM=ID,REP=DATA 
CICS USSCMD CMD=CICS,REP=LO£ON,FORMAT=BAL 

USSPARM PARM=APPLID»DEFAULT=DBDCCICS 
USSPARM PARM=LOGMODE,DEFAULT=INTERACT 
USSPARM PARM=DATA 

TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=TSO 
USSPARM PARM=LOGMODE»DEFAULT=INTERACT 
USSPARM PARM=DATA 

VAPPL USSCMD CMD=VAPPL , REP=LOGON,FORMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=VAPPL 
USSPARM PARM=LOGMODE,DEFAULT 3 INTERACT 
USSPARM PARM=DATA 

TEST USSCMD CMD=TEST,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=ISTOLTEP 
USSPARM PARM=LOGMODE,DEFAULT=INTERACT 
USSPARM PARM=DATA 

LOGOFF USSCMD CMD=LOGOFF,FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE> DEFAULT=COND 
USSPARM PARM=HOLD,DEFAULT=YES 
EOD USSCMD CMD=EOD,REP=LOGOFF,FORMAT=BAL 

USSPARM PARM=APPLID 
USSPARM PARM=TYPE,DEFAULT=UNCOND 
USSPARM PARM=HOLD,DEFAULT=NO 
USSEND 
END 


NOTES- This USSTAB simplifies operator logon from the 3767 SDLC unit. 
Description and specification for USSTAB generation is found in the 
appropriate System Programmers Guide for VTAM and ACF/VTAM. 
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VTAM SESSION PARAMETERS 


USSTAB FOR 3770 SDLC 


ASUSST70 USSTAB 

LOG USSCMD CMD=LOG,REP=LOGON,FORMAT=BAL 

USSPARM PARM=P1,REP=APPLID 
USSPARM PARM=P2,REP=LOGMODE 
USSPARM PARM=P3,REP=DATA 
SIGNON USSCMD CMD=SIGN0N»REP=L0G0N,FORMAT = BAL 
USSPARM PARM=APPLID>DEFAULT=JES2 
USSPARM PARM=LOGMODE,DEFAULT=BUF256 
USSPARM PARM=USER,REP=DATA 
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=IMS 
USSPARM PARM=LOGMODE,DEFAULT=BATCH 
TEST USSCMD CMD=TEST,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=tSTOLTEP 
USSPARM PARM=LOGMODE»DEFAULT=INTERACT 
RMT1 USSCMD CMD=RMT1,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID»DEFAULT=JES2 
USSPARM PARM=L0GM0DE,DEFAULT=BUF512 
USSPARM PARM=DATA,DEFAULT=RMT1 
POWER USSCMD CMD=POWER»REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=POWER 
USSPARM PARM=LOGMODE,DEFAULT=BATCH 
USSPARM PARM=DATA»DEFAULTS006 
LOGOFF USSCMD CMD=LOGOFF,FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE»DEFAULT=COND 
USSPARM PARM=HOLD»DEFAULT=YES 
EOD USSCMD CMD=EOD,REP=LOGOFF,FORMAT=BAL 

USSPARM PARM=APPLID 
USSPARM PARM=TYPE,DEFAULT=UNCOND 
USSPARM PARM=HOLD,DEFAULT=NO 
SIGNOFF USSCMD CMD=SIGNOFF,FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE» DEFAULT=COND 
USSPARM PARM=HOLD,DEFAULT=YES 
USSEND 
END 


NOTES- This USSTAB simplifies operator logon from the 3770 SDLC unit. 
Description and specification for USSTAB generation is found in the 
appropriate System Programmers Guide for VTAM and ACF/VTAM. 
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USSTAB FOR 3274/3276 SDLC 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X SOURCE FOR USSTAB FOR SNA 3274/3276 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

USST3270 USSTAB 

LOO USSCMD CMD=LOG,REP=LOGON,FORMAT=BAL 

USSPARM PARM=P1,REP=APPLID 
USSPARM PARM=P2,REP=L0GM0DE, 

USSPARM PARM=P3»REP=DATA 
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=IMS 
USSPARM PARM=P1,REP=L0GM0DE 
IMS115 USSCMD CMD=IMS115,REP=L0G0N,F0RMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=IMS115 
USSPARM PARM=P1 , REP=LOGMODE 
CICS14 USSCMD CMD=CICS14,REP=L0G0N,F0RMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=CICS14 
USSPARM PARM=P1,REP=LOGMODE 
CICS13 USSCMD CMD=CICS13,REP=L0G0N,F0RMAT=BAL 
USSPARM PARM=APPLID,DEFAULT=CICS13 
USSPARM PARM=Pl»REP=LOGMODE 
NOSP USSCMD CMD=NOSP,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID»DEFAULT=NOSPl 
USSPARM PARM=LOGMODE,DEFAULT=DSILGMOD 
TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=TSO 
USSPARM PARM=LOGMODE 
USSPARM PARM=P1,REP=DATA 
LOGOFF USSCMD CMD=LOGOFF* FORMAT=BAL 
USSPARM PARM=APPLID 
USSPARM PARM=TYPE> DEFAULT=UNCOND 
USSPARM PARM=HOLD»DEFAULT=YES 
EOD USSCMD CMD=EOD,REP=LOGOFF,FORMAT=BAL 

USSPARM PARM=APPLID 
USSPARM PARM=TYPE»DEFAULT=UNCOND 
USSPARM PARM=HOLD»DEFAULT=NO 
VSPC USSCMD CMD=VSPC,REP=LOGON,FORMAT=BAL 

USSPARM PARM=APPLID,DEFAULT=VSPC 
USSPARM PARM-LOGMODE 
USSPARM PARM=P1,REP=DATA 

X THE FOLLOWING CODE IS POSITIONALLY DEPENDENT.DO NOT CHANGE 

X 

XIF DOS/VS, A CHARACTER IS REQUIRED IN COLUMN 16 OF THE TEXT ON 
X ALL THE STATEMENTS CONTAINING 71 BLANKS. 

MESSAGES USSMSG MSG=1,TEXT='MAXIMUM MESSAGE 
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USSMSG MSG=2,TEXT*'MAXIMUM MESSAGE 


USSMSG MSG=3,TEXT='MAXIMUM MESSAGE 


USSMSG MSG=4,TEXT=* MAXIMUM MESSAGE 


USSMSG MSG=5»TEXT = ’MAXIMUM MESSAGE 


USSMSG MSGS6,TEXT='MAXIMUM MESSAGE 


USSMSG MSG=7,TEXTS'MAXIMUM MESSAGE 




USSMSG MSG = 0>TEXT=*MAXIMUM MESSAGE 


USSMSG MSG=10,TEXT='MAXIMUM MESSAGE 


PATCHBK 

EQU 

X 





ORG 

ISTT0001+1 ORG 

BACK 

TO 

OVERLAY MESSAGE 

MSG1S 

EQU 

X 





DC 

X'4015' 

SKIP 

TO 

LINE 2 


DC 

C*INVALID COMMAND 

SYNTAX, 

ENTER*',X'15' 
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DC X'4015' 

DC C'LOG applid logmode data',X'15' 

DC C*IMS* ,X'15' 

DC C'CICS14',X'15' 

DC C'CICS13',X’15' 

DC C’TSO tsoid/password',X'15' 

DC C'NOSP',X*15' 

DC C'VSPC ID=nnnnnn' 

MSG1E EQU x 

ORG I5TT0002+1 ORG BACK TO OVERLAY MESSAGE 
MSG2S EQU x 

DC X'4015' SKIP TO LINE 2 

DC C'% COMMAND NOT RECOGNIZED, ENTER:',X'15' 

DC X'4015’ 

DC C'LOG applid logmode data',X*15' 

DC C'lMS',X'15' 

DC CCICS14' ,X'15' 

DC C’CICS13',X’15' 

DC C'TSO tsoid/password* »X'15' 

DC C'NOSP',X'15' 

DC C'VSPC ID=nrmnnn' 

MSG2E EQU x 

ORG ISTT0003+1 ORG BACK TO OVERLAY MESSAGE 
MSG3S EQU X 

DC X'4015' SKIP TO LINE 2 

DC C'% PARAMETER NOT RECOGNIZED, ENTER:',X'15' 

DC X'4015' 

DC C'LOG applid logmode data',X'15' 

DC C'IMS',X'15' 

DC CCICS14',X'15' 

DC CCICS13' ,X'15' 

DC C'TSO tsoid/password',X'15' 

DC C'NOSP',X’15’ 

DC C'VSPC ID=nnnnnn' 

MSG3E EQU * 

ORG ISTT0004+1 ORG BACK TO OVERLAY MESSAGE 
MSG4S EQU X 

DC X’4015' SKIP TO LINE 2 

DC C'% PARAMETER INVALID, ENTER:',X'15» 

DC X'4015' 

DC C’LOG applid logmode data',X'15' 

DC C'IMS',X'15' 

DC CCICS14' ,X'15' 

DC CCICS13' ,X'15' 

DC C'TSO tsoid/password',X'15' 

DC C'NOSP',X'15' 

DC C'VSPC ID=nnnnnn',X'15' 

DC X'4015' 
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MSG4E 

MSG5S 


MSG5E 

MSG6S 


MSG6E 

MSG7S 


MSG7E 

MSGOS 


MSGOE 


DC C'NOTE* The application may not be active' 

EQU * 

ORG ISTT0005+1 ORG BACK TO OVERLAY MESSAGE 
EQU X 

DC X'4015' SKIP TO LINE 2 

DC C'UNSUPPORTED FUNCTION, ENTER* *,X'15' 

DC X'4015* 

DC C'LOG applid logmode data',X'15' 

DC C'IMS',X*15* 

DC CCICS14' ,X'15' 

DC C'CICS13',X'15' 

DC C'TSO tsoid/password',X'15* 

DC C'N0SP»,X'15’ 

DC C’VSPC ID**nnnnnn* 

EQU x 

ORG ISTT0006+1 ORG BACK TO OVERLAY MESSAGE 
EQU x 

DC X'4015' SKIP TO LINE 2 

DC C'SEQUENCE ERROR*•,X'15' 

DC X'40154015' 

DC C'l. You are attempting to logoff from a terminal ' 

DC C'that is not in session' 

DC X'4015* 

DC C'2. You are attempting to logon from a terminal that * 
DC C'is already in session' 

EQU x 

ORG ISTT0007+1 ORG BACK TO OVERLAY MESSAGE 
EQU X 

DC X'40154015' SKIP TO LINE 3 

DC C'SESSION NOT BOUND BECAUSE*•,X'15' 

DC X'40154015' 

DC C'l. This terminal is already in session',X'15* 

DC X'4015' 

DC C'2. The host application rejected the logon request' 

DC X*154015' 

DC C'3. The terminal rejected the bind’,X'15* 

EQU X 

ORG ISTT0008+1 ORG BACK TO OVERLAY MESSAGE 
EQU X 

DC X'40154015' SKIP TO LINE 3 

DC C'COMMAND COMPLETED OK*' 

DC X'4015401540154015» 

DC C'lf LOGON, press ALT/SYS REQ (TEST REQ/CLEAR for 3277)* 

DC X'401540154015' 

DC C'lf LOGOFF, enter next command or press enter for ' 

DC C'logon command syntax' 

EQU x 

ORG ISTT0009+1 ORG BACK TO OVERLAY MESSAGE 
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MS610S EQU X 

DC X’40154015' SKIP TO LINE 3 

DC C* PALO ALTO SYSTEMS CENTER, ACF/VTAM SYSTEM* 

DC X*40154015401540154015* 

DC C'For logon command syntax, press enter' 

MSG10E EQU X 

ORG PATCHBK 

x MAKE SURE EACH MESSAGE DOES NOT EXCEED 249 BYTES 


MSG1L 

EQU 

CMSG1E-MSG1S) 

MSG2L 

EQU 

(MSG2E-MSG2S) 

MSG3l 

EQU 

(MSG3E-MSG3S) 

MSG4L 

EQU 

(MSG4E-MSG4S) 

MSG5L 

EQU 

(MSG5E-MSG5S) 

MSG6L 

EQU 

(MSG6E-MSG6S) 

MSG7L 

EQU 

(MSG7E-MSG7S) 

MSG0L 

EQU 

(MSG0E-MSG0S) 

MSG10L 

EQU 

CMSG10E-MSG10S) 

END 

USSEND 


END 



NOTES- This USSTAB simplifies operator logon from the 3274/3276 SDLC 
unit. Description and specification for USSTAB generation is found in 
the appropriate System Programmers Guide for VTAM and ACF/VTAM. 
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E FFER EM PFS 

DOS/VS VTAM System Programmers Guide 
ACF/VTAM System Programmers Guide (DOS) 
0S/VS1 VTAM System Programmer's Guide 
0S/VS2 SVS VTAM System Programmer's Guide 
0S/VS2 VTAM System Programming Library*VTAM 
ACF/VTAM System Programmers Guide 


GC27-6957 

SC38-C268 

GC27-6996 

GC27-0049 

GC28-0688 

SC38-0258 
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CHAPTER 5 : SAMPLE SYSTEM DEPENDENT JCJL 


S.l s DP_S/VS SAMPLES 


The examples included in this section should assist in the installation 
of a DOS/VS system with local 3270*s and a local attached 3705. 


EfiE ER .EM.CES 


DOS/VS VTAM System Programmers Guide 
DOS/VS System Management Guide 
DOS/VS System Control Statements 
DOS/VS System Generation 
DOS/VS System Utilities 
DOS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide (DOS) 
ACF/VTAM Installation Guide (DOS) 
ACF/VTAM Reference Summary (DOS) 


GC27-6957 

GC33-5371 

GC33-5376 

GC33-5377 

GC33-5381 

GX27-0033 

SC38-0268 

SC38-0270 

SX27-3022 
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DOS/VS SYSTEM DEFINITION(PARTIAL) 

// JOB SUPVR (XXXXXXXXXXXXXX) ASSMB AND CATAL SIPOSUPV M0D2 10/2/78 


// EXEC PROC=$$RESET 

// OPTION ERRS,LIST,XREF,NODECK,NOEDECK,CATAL 
// OPTION NOXREF 
// EXEC ASSEMBLY,SIZE=40K 
PRINT N06EN 

SUPVR X 

ID=V, $$A$SUPV X 

AP=YES, X 

ERRLOG=RDE, X 

NPARTS=6, X 

POWER=YES, ’POWER/VS* X 

PAGEIN=24, X 

PHO=YES, REQUIRED FOR POWER/VS X 

TP=(BTAM,VTAM>, X 


VM=YES VM LINKAGE ENHANCEMENTS 

QCONFG EQU X 

CONFG 

FP=YES, 

M0DEL=158 
OSTDJC EQU X 


STDJC X 

ACANCEL=NO, X 

DECK-NO, X 

DUMP=NO, X 

LINES=60, X 

SPARM=YES, X 

XREF=NO 

$F0PT EQU X 

FOPT X 

AB=YES, REQUIRED FOR VTAM X 

ASYNOC=YES, X 

DASDFP=(1,4), (TO ALLOW SYSRES ON CHANNELS 1-4) X 

DOC=NO, X 

ECPREAL=YES, REQUIRED FOR POWER/VS X 

ERRQ=10, X 

EVA=(10,10), X 

FASTTR=YES, FAST CCW TRANSLATE (R32 FEATURE) X 

GETVIS=YES, REQUIRED FOR VTAM X 

IDRA=YES, X 

IT=YES, REQUIRED FOR VTAM X 

JA-(12,12,12,12,12), X 

JALI0CS=(64,64), X 

OC=YES, REQUIRED FOR VTAM X 

OLTEP=YES, X 
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PC=YES, REQUIRED FOR VTAM X 
PCIL=YES, X 
PD=YES, X 
PFIX=YES, REQUIRED FOR POWER/VS AND VTAM X 
PRTY=(BG>F5» F4> F3> F2> FI)» FI-VTAM F2-P0MER X 

xxxx VTAM must have the highest priority 

PSLD=12> X 
RELLDR=YES, REQUIRED FOR POUER/VS AND VTAM X 
RPS=YES> X 
SLD=15, X 
SYSFIL=YES» REQUIRED FOR VTAM X 
TOD=YES, REQUIRED FOR VTAM X 
TRKHLD=12» X 
USERID=SIP0SUP1M0D2VMLE, X 
VSAM=YES, REQUIRED BY SSS X 
WAITM=YES, X 


XECB=YE$, INTER-PARTITION COMMUNICATION CR32) X 

Z0NE=(WEST»7» 00) 

OPIOCS EQU X 
PIOCS 

BLKMPX=YES» 

BMPX=YES» 

DISK=(3330,3340,3350), 

TAPE=9 

OVSTAB EQU X 

VSTAB 

RSIZE=512K» 

VSIZE=7680K» 8 MEG VIRTUAL MACHINE 
BUFSIZE-150» 

SVA=C570K»40K) 

QALLOC EQU x 

ALLOC 

F1=2048K, VTAM RUNNING AT THE HIGHEST PRTY 

XXX Usually 800K to 900k for average VTAM system XXX 
XXX Usually 1500 to 2000k for large systems and if RESTART option. 
F2=512K, POWER/VS SNA/RJE 

F3=2048K, CICS/VS + DL/1 + VSAM OR VTAM 

F4=1024K» CICS/VS BUT NOT EVERYTHING 

F5=450K PRODUCTION 

X BG=1024K BG = VSIZE - (SVA + FI + F2 + F3 + F4 + F5 


QALLOCR EQU X 

ALLOCR X 

BGR=80K, X 

F4R=40K, X 

F5R=80K» X 

F3R=80K, X 
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PAGE 


F2R=56K, POWER RSIZE 

F1R=40K 

xxx Usually 36K to 40K for average VTAM system xxxx 


x 

x 

6I0TAB 


EQU 

IOTAB 


(BGR + FIR 
MUST BE NO 

X 

BGPGR=40, 

CHANQ=64, 

03330=16, 

03340=32, 

03350=8, 

03420=8, 

F1PGR=24» 

F2PGR=40, 

F3PGR=39, 

F4PGR=39, 

F5PGR=10, 

IODEV=110, 

JIB=200, 

NRES=64 


+ F2R + F3R + F4R + F5R 
GREATER THAN 'RSIZE*. 


+ 20K + SUPERVISOR) 


6DVCGEN 


EQU x 

*1 

DVCGEN 

CHUN=X* 

ooc 

DVCGEN 

CHUN=X' 

01C 

DVCGEN 

CHUN=X* 

OOD 

DVCGEN 

CHUN=X* 

04D 

DVCGEN 

CHUN=X* 

OOE 

DVCGEN 

CHUN=X* 

OOB 

DVCGEN 

CHUN=X* 

009 

DVCGEN 

CHUN=X* 

030 

DVCGEN 

CHUN=X* 

031 

DVCGEN 

CHUN=X' 

060 

DVCGEN 

CHUN=X* 

070 

DVCGEN 

CHUN=X* 

080 

DVCGEN 

CHUN=X' 

040 

DVCGEN 

CHUN=X* 

041 

DVCGEN 

CHUN=X* 

042 

DVCGEN 

CHUN=X* 

043 


REQUIRED FOR VSAM II 
DEVICES 

READER FOR DMS 
DUMMY READER FOR 'SPM II* 
PUNCH FOR DMS 


REAL* 
,DVCTYP=2540R 
,DVCTYP=2501 


,DVCTYP=2540P 
,DVCTYP=3525P 
,DVCTYP=1403U 
,DVCTYP=1403U 
,DVCTYP=1050A 
,DVCTYP=2703 
,DVCTYP=2703 
,DVCTYP=3791L 
,DVCTYP=370 5,MODE=X *01* 
,DVCTYP=3705,MODE=X*02* 


2703/OR 370X IN EMULATION 
2703/OR 370X IN EMULATION 
LOCAL 3274 

370X NATIVE MODE 
370X NATIVE MODE 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


,DVCTYP=3277 LOCAL 3270 FOR MONITOR, 

,DVCTYP=3277 LOCAL 3270 FOR APPLIC. 

,DVCTYP=3277,MODE=X*01 * LOC. 3286 PRT 
,DVCTYP=3277 FOR CONSOLE SUPPORT 


CICS 


X MULTIPLE PRINTERS FOR POWER/VS CONTROL 
DVCGEN CHUN=X* 01E* >DVCTYP=1403U 
DVCGEN CHUN=X'02E*,DVCTYP=1403U 
DVCGEN CHUN=X*08E',DVCTYP=1403U 
X 
X 

DVCGEN CHUN=X*140*,DVCTYP=3350 
DVCGEN CHUN=X'141 *,DVCTYP=3350 
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X 

X 

X 

DVCGEN CHUN=X'160',DVCTYP=3340 
DVCGEN CHUN=X'161',DVCTYP=3340 
DVCGEN CHUN=X'162',DVCTYP=3340 
x 

DVCGEN CHUN=X'280',DVCTYP=3420T9 
DVCGEN CHUN=X'281*»DVCTYP=3420T9 
X 

DVCGEN CHUN=X*350'*DVCTYP=3330 
DVCGEN CHUN=X'351',DVCTYP=3330 
DVCGEN CHUN=X'352',DVCTYP=3330 
X 

DVCGEN CHUN=X'370’,DVCTYP=3330B 
DVCGEN CHUN=X'371',DVCTYP=3330B 
DVCGEN CHUN=X'372',DVCTYP=3330B 
X 

$ASSGN EQU * 
x SYS 


ASSGN SYSLOG»X 
ASSGN SYSREC,X 
ASSGN SYSCAT,X 
ASSGN SYSCAT,X 
ASSGN SYSCAT,X 
ASSGN SYSCAT,X 
ASSGN SYSCAT,X 
ASSGN SYSCAT,X 

X BG 

ASSGN 5YSRDR,X 
ASSGN SYSIPT»X 
ASSGN SYSPCH,X 
ASSGN SYSLST,X 
x 

ASSGN SYSLNK,X 
ASSGN SYS001»X 
ASSGN SYS002,X 
ASSGN SYS003,X 
ASSGN SYS004,X 

X F5 

ASSGN SYSRDR,X 
ASSGN SYSIPT,X 
ASSGN SYSPCH,X 
ASSGN SYSLST,X 

X F4 

ASSGN SYSRDR.X 
ASSGN SYSIPT,X 
ASSGN SYSPCH,X 


009' 



160 ’ 



160* 

VSAM 

MASTER 

160',F4 

VSAM 

MASTER 

160 *,F5 

VSAM 

MASTER 

160',F3 

VSAM 

MASTER 

160',F2 

VSAM 

MASTER 

160’,FI 

VSAM 

MASTER 

OOC* BG 
00C BG 
00D' BG 
00E* BG 



161' BG 
161' BG 
161' BG 
161' BG 
161' BG 



05C',F5 

05C’,F5 

05D',F5 

05E',F5 



00C',F4 

00C',F4 

00D',F4 




CATALOG 

CATALOG THESE ASSGNS 
CATALOG SHOULD NOT BE 
CATALOG NEEDED, BUT 
CATALOG WERE FOUND TO 
CATALOG BE NECESSARY. 
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ASSGN SYSLST»X’00E'»F4 
ASSGN SYSLNK,X'161',F4 
ASSGN SYS001,X'161',F4 
ASSGN SYS002,X»161',F4 
ASSGN SYS003,X'161 *»F4 
ASSGN SYS004,X'161'»F4 

X F3 

ASSGN SYSRDR»X* 00C',F3 
ASSGN SYSIPT,X'OOC',F3 
ASSGN SYSPCH,X'OOD',F3 
ASSGN SYSLST,X'OOE',F3 
* F2 POWER/VS PARTITION 

ASSGN SYSLST,X'00E T ,F2 
ASSGN SYS000,X'161',F2 
ASSGN SYS001»X'161',F2 
ASSGN SYS002,X'161',F2 
X FI VTAM PARTITION 

ASSGN SYSLST,X'OIE*,FI 
X 
X 

$SEND EQU x 
SEND 

ENTRY NUCEND IDENTIFY ACTUAL END OF SUPERVISOR. 

SUPPARMS LIST PARAMETERS, AHEAD OF PRINT GEN 

END 
/x 

// EXEC LNKEDT 
/* 


NOTE- Information for preparing the DOS/VS system is found in Chapter 2 
of the DOS/VS VTAM System Programmer's Guide (GC27-6957), and the DOS/VS 
System Generation Guide (GC33-5377). If installing ACF/VTAM, the 
ACF/VTAM System Programmer's Guide (SC38-0268) and ACF/VTAM Installation 
Guide (SC38-0270) are required. 
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DOS/VS POWER DEFINITION 


// JOB POWERASM 
// EXEC PROC=$$RESET 

// OPTION ERRS,LIST,XREF,NODECK,NOEDECK,CATAL 
// EXEC ASSEMBLY,SIZE=128K 

TITLE ’POWER SNA - RELEASE 34’ 

PRINT GEN 

POWSNA POWER DBLK=1966, 

TRACKGP=3, 

LTAB=(10,00,05,10,15,20,25,30,35,40,45,50,56), 
PRI=5, 

SUBLIB=P, 

ACCOUNT=YES, 

STDLINE=(10000,10000), 

STDCARD S (500,500), 

JLOG=YES, 

JSEP=(2,0), 

RBS=(0,0), 

RDREXIT=YLZ1REX, 

PAUSE=NO, 

SPOOL=YES, 

SNA-C20,,POWER) 

EJECT 

PLINE ADDR-X'030', 

SWITCH=YES, 

TRNSP=YES 
PLINE ADDR=X’031», 

SWITCH=YE5, 

TRNSP=YES 

EJECT 

PRMT REMOTE=l, 

TYPE=3780, 

TRNSP=YES, 

TRACE=YES 
PRMT REM0TE=2, 

TYPE=3780, 

SCE=YES, 

TRACE=YES 
PRMT REM0TE=3, 

TYPE=2770, 

TRNSP=N0, 

SCE=YES, 

BE=YES, 

ABE=YES, 

TRACE=YES 
PRMT REM0TE=4, 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 
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TYPE=2770» 

TRNSP=YES» 

SCE=NO» 

BE=YES, 

ABE=YES, 

TRACE=YES 

EJECT 

PRMT REM0TE=5» 

TYPE=LUT1» 

CONSOLE=NO, 

SESSLIM=1, 

LU=(P76ALU1) 

PRMT REM0TE=6» 

TYPE=LUT1» 

CONSOLE=YES» 

LU=(P76ALU1»P76ALU2>P76ALU3»P76ALU4»P76ALU5»P76ALU6)> 
SESSLIM=6 
PRMT REM0TE=7 , 

TYPE=LUT1, 

CONSOLE=YES> 

LU=(RJE01,RJE02,RJE03»RJE04,RJE05)» 

SESSLIM=5 

END 

✓X 

// EXEC LNKEDT 

/X 

/& 
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DOS/VS VTAM OR ACF/VTAM NETWORK INSTALL JCL 


// JOB CATAL VTAM NETWORK DEFINITION 
// EXEC MAINT 

CATALS B.node name 
BKEND B.node name 

Insert network definition deck here 


BKEND 

/x 

/* 


NOTE- Chapter 3 of the DOS/VS VTAM System Programmer's Guide describes 
the filing of network definition decks. Sample network definitions for 
the NCP are described in Chapter 6. Chapter 7 contains a sample Switches 
SNA node definition and Chapter 8 contains sample local device 
definitions. 


DOS/VS VTAM OR ACF/VTAM START PARAMETER DEFINITION EXAMPLE 


CATALS B.ATCSTROO 
BKEND B.ATCSTROO 

XXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X MINIMUM VTAM SYSTEM - NO NCP X 

X THIS WILL NOT SUPPORT AN NCP UNLESS VTAM BUFFER VALUES ARE X 

X ENTERED WHEN PROMPTED BY VTAM AT STARTUP. X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONFIG=00, PREDEFINED LIST OF MAJOR NODES CATCCONOO) 

MAXSUBA=15» MAXIMUM NUMBER OF MAJOR NODES 

SSCPID=01 REQUIRED FOR VTAM-2 or ACF/VTAM 

BKEND 
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DOS/VS VTAM START DEFINITION (TEST - REPLACES INITIAL) 

CATALS B.ATCSTR01 
BKEND B.ATCSTR01 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXX 


X NOTE* THE LFBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE * 

x IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE * 

X BUFFER POOL START PARAMETERS IS EITHER X 

x XXBUF=(BNO,BSZ,BTHZ) OR XXBUF=VBSZ AS INDICATED BELOW. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CONFIG=01, PREDEFINED LIST OF MAJOR NODES CATCCONOl) X 

SSCPID=01, VTAM IDENTIFIER REQUIRED FOR VTAM-2 (RELEASE 32) X 

NETSOL=NO» NETWORK SOLICITOR NOT TO BE STARTED X 

SUPP=NOSUP, DO NOT SUPPRESS VTAM MESSAGES X 

MAXSUBA=31, MAXIMUM NUMBER OF MAJOR NODES X 

PROMPT, ALLOW NETWORK OPERATOR TO ENTER VTAM START DATA X 

APBUF=(23,,21), ACTIVE & INACTIVE BUFFER POOL - PAGEABLE STORAGE X 

LFBUF=(39,88,37), LARGE FIXED STORAGE I/O BUFFER POOL X 

LPBUF=(20,,18), LARGE PAGEABLE-STORAGE BUFFER POOL X 

NPBUF=(11,,9), DEVICE CONNECTION BUFFER POOL, PAGEABLE X 

PPBUF=(8,88,6), PAGEABLE DATA BUFFER POOL X 

SFBUF=(1,,1), SMALL FIXED STORAGE BUFFER POOL X 

SPBUF=(46,,43), SMALL PAGEABLE-STORAGE BUFFER POOL X 

WPBUF=(8,,6), DEVICE CONNECTION BUFFER POOL - PAGEABLE X 

UECBUF-(20,,18), SESSION AND SIMLOGON BFR POOL - PAGEABLE X 

VFBUF=6144,VPBUF=120000 
BKEND 

NOTE- Defining and filing DOS VTAM start parameters is described in 
Chapter 4 of the DOS/VS VTAM System Programmer’s Guide (GC27-6957). 


ATCSTROO is required by VTAM even if all defaults are taken. The system 
defaults Mill not support more than one active application program, 
including the Netuork Solicitor, and will not support an active NCP. 
ATCSTR01 specifies the values necessary to support a small NCP, 
application definitions, and local definitions. A VTAM virtual partition 
size should be about 900K and the ALLOCR size should be at least 36K. 
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DOS/VS ACF/VTAM START PARAMETER DEFINITION (TEST) 


CATALS B.ATCSTRAC 
BKEND B.ATCSTRAC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


x X 

X ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. X 

X X 

X NOTES THE IOBUF (BUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE X 

X IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

x BUFFER POOL START PARAMETERS IS EITHER X 

X XXBUF=(BASENO,BUFSIZE,SLOWPT,XPANNO,XPANPT) X 

x OR XXBUF=VBSZ AS INDICATED BELOW. x 

x XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF x 

X BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE X 

X INCREMENTS. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SSCPID-01, VTAM IDENTIFIER REQUIRED FOR ACF/VTAM X 

CONFIG=AC, PREDEFINED LIST OF MAJOR NODES (ATCCONAC) X 

H0STSA=12, HOST SUBAREA FOR THIS ACF/VTAM X 

MAXSUBA=31, MAXIMUM NUMBER OF MAJOR NODES X 

VTAMEAS=100, X 

MAXAPPL=50, MAXIMUM NUMBER OF APPLICATION STATEMENTS X 

NETSOL=NO, NETWORK SOLICITOR NOT TO BE STARTED X 

PROMPT, ALLOW VTAM OPERATOR TO ENTER VTAM START DATA X 

SUPP=NOSUP, ALL ACF/VTAM MESSAGES TO BE PRINTED X 

APBUF = (64,>0,1,5), 64- ACTIVE 8 INACTIVE BUF POOL - PAGEABLE STOR X 

LFBUF=C46,136,2,1,24), 136- LARGE FIXED STORAGE I/O BUFFER POOL X 

Note - The difference between SLOWPT and XPANPT must be greater than 
the largest MAXBFRU defined in any NCP or Local definition. 
LPBUF=(3,,0,2,1), 1131- LARGE PAGEABLE - STORAGE BUFFER POOL X 

NPBUF=(14»,0,1,3), 288- DEVICE CONNECTION BUFFER POOL - PAGEABLE X 

PPBUF=(30,136,0,1,5), 136- PAGEABLE DATA BUFFER POOL X 

SFBUF=(34,,0,1,5), 120- SMALL FIXED STORAGE BUFFER POOL X 

SPBUF=(26>,0,1,3), 156- SMALL PAGEABLE - STOR BUFFER POOL X 

UECBUF=(40,,4,1,10), 100- SESSION 8 SIMLOGON BFR POOL - PAGEABLE X 

WPBUF=(24»,0,1,3), 164- DEVICE CONNECTION BUF POOL - PAGEABLE X 

VFBUF=8000,VPBUF=180000 
BKEND 


NOTE- The VTAM virtual partition size should be adjusted to 2048K, and 
the ALLOCR value should be 36K. These buffer values will support the 
initialization of a large NCP definition, a switched SNA node, local 
3270's and NETSOL. The above values should be adjusted after the system 
has been checked out. 
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DOS/VS START DEFINITION WITH AUTO-START OF VTAM TRACES 


CATALS 8.ATCSTR11 
BKEND B.ATCSTR11 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X AUTO LOAD OF NCP WITH VTAM TRACES X 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C0NFIG=11» PREDEFINED LIST OF MAJOR NODES (ATCC0N11) X 

TRACE,TYPE=BUF,ID=NCPBS, X 

TRACE,TYPE=BUF,ID=CL3790, X 

TRACE,TYPE=BUF,ID=SD3767, X 

TRACE,TYPE=BUF,ID=INBATCH1, X 

TRACE,TYPE=BUF,ID=INQDEM02, X 

TRACE,TYPE=BUF,ID=TR3767SD, X 

TRACE,TYPE=IO,ID=NCPBS, X 

TRACE,TYPE=IO,ID=CL3790, X 

TRACE,TYPE=IO,ID=SD3767, X 

TRACE,TYPE=IO,ID=INBATCHl, X 

TRACE,TYPE=I0,ID=INQDEM02, X 

TRACE,TYPE=IO,ID=TR3767SD 
BKEND 


NOTE- The above start list assumes the required buffer definitions are 
specified in ATCSTROO. If they are not, then all the start parameters in 
the normal start list should be included. 
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DOS/VS VTAM APPLICATION PARAMETER EXAMPLE 


CATALS B.APPCONOl 
BKEND B.APPCONOl 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


APPLICATION PROGRAM DEFINITION FOR VTAM 
NHERE THE OPERANDS AVAILABLE ARE: 


PRTCT-PASSWORD, 


BUFFACT=N|1» 


AUTH=(ACQINOACQ, 


BLOCK|NOBLOCK, 
PASS|NOPASS) 


PASSWORD MUST ALSO BE DEFINED IN 
APPLICATION PROGRAM * ACB'. 

MAXIMUM NUMBER OF VTAM PPBUF'S. IT 
MAY NEED TO BE ADJUSTED FOR BATCH 
INPUT. 

ALLOWS APPLICATION PROGRAM TO USE 
THE OPNDST MACRO WITH THE 
ACQUIRE OPTION. 

NOT USED WITH SDLC OR 3270. 

ALLOWS USE OF CLSDST MACRO 
WITH THE PASS OPTION. 


X 

X 

X 

X 

X 

X 

x 

x 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SAMP1 APPL AUTH=(ACQ) 

CICS APPL AUTH=(ACQ),BUFFACT=4 

PR0G1 APPL AUTH=(ACQ) 

INQALL APPL PRTCT=OKAYOKAY 

INQ APPL AUTH-(ACQ) 

BATCH APPL AUTH=(ACQ),BUFFACT -2 

INQ3790 APPL AUTH s (NOACQ) 

TEST3 APPL AUTH=(ACQ) 

SYSSSS APPL AUTH-(ACQ) 

BKEND 


NOTE- Chapter 3 of the DOS/VS VTAM System Programmer’s Guide (GC27-6957) 
describes the definition and filing of the application programs. 
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DOS/VS ACF/VTAM APPLICATION PARAMETER EXAMPLE 


CATALS B.APPCONAC 
BKEND B.APPCONAC 
APPCONAC VBUILD TYPE=APPL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


APPLICATION PROGRAM DEFINITION FOR VTAM 
WHERE THE OPERANDS AVAILABLE ARE: 

ACBNAME=ACBNAME, MINOR b 


ACBNAME S ACBNAME, MINOR NODE NAME. DEFAULTS TO NAME x 

ON APPL STATEMENT. 

PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN X 

APPLICATION PROGRAM 'ACB*. X 

BUFFACT=N|1, MAXIMUM NUMBER OF VTAM PPBUF'S. IT X 

APPLIES TO BASIC MODE ONLY. X 

VPACING=N, MAXIMUM NUMBER OF NORMAL-FLOW X 

REQUESTS FROM LU. X 

MODETAB=MODETAB NAME, NAME OF MODETAB TO BE USED BY THE X 

APPLICATION. X 

DLOGMOD=DEFAULT LOG- NAME OF LOGMODE ENTRY TO BE USED X 

MODE ENTRY IF NONE IS OTHERWISE PROVIDED. X 

EAS=N|404, NUMBER OF CONCURRENT SESSIONS THIS X 

APPLICATION PROGRAM WILL HAVE WITH X 
ANY LOGICAL UNITS. X 

AUTH=(ACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE X 

THE OPNDST MACRO WITH THE X 

ACQUIRE OPTION. X 

PPOlSPOlNOPO, DEFAULTS TO NOPO. SEE THE PROGRAM X 

OPERATOR GUIDE FOR ITS USE. X 

BLOCKlNOBLOCK, BASIC MODE ONLY. X 

VPACElNVPACE, DETERMINES IF APPLICATION IS TO BE X 

SUBJECT TO VPACING FOR LU. DEFAULTSX 
TO VPACING. x 

PASS|NOPASS) ALLOWS USE OF CLSDST MACRO X 

WITH THE PASS OPTION. X 


BUFFACT S N|1» 


VPACING=N, 


DLOGMOD=DEFAULT LOG¬ 
MODE ENTRY 
EA5=N|404, 


AUTH=(ACQ|NOACQ, 


PPOlSPOlNOPO, 

BLOCKINOBLOCK, 

VPACElNVPACE, 


PASS|NOPASS) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SAMP1 APPL AUTH=CACQ),DLOGMOD=S3270,EAS=2 

CICS APPL AUTH=(ACQ),EAS=40 

PROG1 APPL AUTH=(ACQ),EAS=10 

INQALL APPL PRTCT=OKAYOKAY,EAS=10 

INQ APPL AUTH=CACQ),EAS=10 

BATCH APPL AUTH=(ACQ),EAS-1 

INQ3790 APPL AUTH=(NOACQ),MODETAB=MODE3790,EAS=4 

TEST3 APPL AUTH=(ACQ),EAS=1 

SYSSSS APPL AUTH=(ACQ),DLOGMOD=BATCH,EAS=1 

BKEND 
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DOS/VS NETWORK CONFIGURATION DEFINITION 


CATALS B.ATCCONOO 
BKEND B.ATCCONOO 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X CONFIGURATION DEFINITION x 

X NETWORK INCLUDES APPLICATION PROGRAM LIST ONLY X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPCONOl 

BKEND 

CATALS B.ATCCONAC 
BKEND B.ATCCONAC 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X CONFIGURATION DEFINITION X 

X NETWORK INCLUDES APPLICATION PROGRAM LIST, AND x 

X LOCAL 3270 DEFINITION. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPCONAC,LOCCONAC 
BKEND 

CATALS B.ATCCON03 
BKEND B.ATCCON03 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X CONFIGURATION DEFINITION x 

X NETWORK INCLUDES APPLICATION PROGRAM LIST, NCPBS AND SWITCH01. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPCONOl,NCPBS,SWITCH01 
BKEND 

CATALS B.ATCCON11 
BKEND B.ATCCON11 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X CONFIGURATION DEFINITION x 
X NETWORK INCLUDES APPLICATION PROGRAM LIST, LOCAL 3270, X 
X NCPBS AND SWITCH02. THE BUFFER VALUES ARE PICKED UP FROM X 
X ATCSTROO. X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPCONOl,NCPBS,LOCCON01,SWITCH02 
BKEND 


NOTE- ATCCONOO Is used when first bringing up VTAM with the initial 
start definition. It maybe used afterwards by specifing 
CONFIG-OO,LIST=00 at VTAM startup time. 
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DOS/VS USSTAB INSTALLATION JCL 


// JOB USSTAB 
// OPTION CATAL 
PHASE name,x 
// EXEC ASSEMBLY,REAL 
Source Deck 
/x 

// EXEC LNKEDT 

/X 

/& 


DOS/VS MODETAB INSTALLATION JCL 


// JOB MODETAB 
// OPTION CATAL 
PHASE name,x 
// EXEC ASSEMBLY,REAL 
Source Deck 
/x 

// EXEC LNKEDT 
/x 
/* 


DOS/VS INTERPRET TABLE INSTALLATION JCL 


// JOB ASSEMBLE 
// OPTION CATAL 
PHASE name,x 

// EXEC ASSEMBLY,REAL,SIZE=64K 
Source Deck 
/x 

// EXEC LNKEDT 
/i 
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DOS/VS EXAMPLE FOR LINKING 3704/5 LOAD UTILITY CSECTS TO VTAM 


// JOB PUNCH NCP CSECT MODULES 
// ASSGN SYS001,3330,VOL=RGW110,SHR 
// DLBL IJSYSPR,'NCP PRL* 

// EXEC CORGZ 
MERGE PRV,RES 

COPYR CXWMAXI1 , CXWMAXI2>CXWMINI1 , CXWMINI2 
/x 

/A 

// JOB LINKEDIT NCP MODULES 
// OPTION CATAL 
PHASE CXWMAXI1,* 

INCLUDE CXWMAXI1 
PHASE CXWMAXI2,* 

INCLUDE CXWMAXI2 
PHASE CXWMINIl,x 
INCLUDE CXWMINIl 
PHASE CXWMINI2,* 

INCLUDE CXWMINI2 
// EXEC LNKEDT 

/X 

/4 


NOTE- This step is required for DOS/VS VTAM. VTAM must have these 
modules link-edited in order to load the NCP. 


DOS/VS EXAMPLE FOR INSTALLING 3704/5 INITIAL TESTS 


/' JOB CREATE 3704/5 INITIAL TEST FILE 
// DLBL IJSYSPH,’INITTEST',300 
// EXTENT SYSPCH,,,,7220,14 
ASSGN SYSPCH,SYSRES 
// EXEC CSERV 

PUNCH IFU3705D,IFU3705E 
/x 
/& 

CLOSE SYSPCH»X'00D* 

/& 

NOTE- This step is required for DOS/VS VTAM. VTAM must have these 
modules in a direct access file. 
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DOS/VS VTAM START PROCEDURE 


// JOB CATALP VTAM START PROCEDURE 
// EXEC MAINT 

CATALP $1NET,VM=0.0,EOP=/+ 

* START VTAM EXECUTION 
// ASSGN SYSOOOrUA 
// DLBL TRFILE,'VTRACE',0 
// EXTENT SYS001,,,,7600,19 
// ASSGN SYS001»SYSRES 
// DLBL NCP45F,'NCP FOR SSS* 

// EXTENT SYS008 
// DLBL NCPSN2,'HAL NCP' 

// EXTENT SYSOOB 
// ASSGN SYSOOB,SYSRES 
// DLBL DIAGFLE,’INITTEST' 

// EXTENT SYS008,,,,7220,14 
// ASSGN SYS008,SYSRES 
// DLBL NCPDUMP,,0,DA 
// EXTENT SYS007,,,,6880,12 
// ASSGN SYS007,SYSRES 
// OPTION NODUMP 

// PAUSE ENTER // EXEC ISTINCVT,SIZE=350K 
/+ END OF PROCEDURE 
/X 
/8 


NOTE- This procedure allows the operator to select either of two NCP 
load modules. The use of this procedure allows VTAM to be executed in 
*F1* only. It also allows update of the procedure catalog while VTAM is 
being executed. The sample does include the file that holds the NCP 
initial test, therefore NCP initial test may be specified in the PCCU 
macro of the NCP definition. 
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DOS/VS ACF/VTAM START PROCEDURE CONE NCP) 


// JOB CATALP VTAM START PROCEDURE 
// EXEC MAINT 

CATALP $1NET,VM=0.0,EOP=/+ 

X START VTAM EXECUTION 

X MUST DEFINE A TRACE FILE 

// ASSGN SYS000,UA 

// DLBL TRFILE#'VTRACE*,0 

// EXTENT SYS001,,,,7896,48 

// ASSGN SYS001,3340,VOL=DOS111,SHR 

// DLBL NCPACFI,’HAL NCP* 

// EXTENT SYS008,DOS111,1,0,2880,60 
// ASSGN SYS008,3340,VOL=DOS111,SHR 
// PAUSE ENTER // EXEC ISTINCVT,SIZE=500K 
/+ END OF PROCEDURE 

/X 

/& 


NOTE- This procedure allows the operator to select either of two NCP 
load modules. The use of this procedure allows VTAM to be executed in 
' F2* only. It also allows update of the procedure catalog while VTAM is 
being executed. The sample does include the file that holds the NCP 
initial test, therefore NCP initial test may be specified in the PCCU 
macro of the NCP definition. 
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DOS/VS NCP STAGE 1 GENERATION JCL 


// JOB NCP STAGE1 GENERATION 
// ASSGN SYSSLB,3330,VOL=RGW110,SHR 
// DLBL IJSYSSL*'NCP PSL* 

// OPTION DECK 

// EXEC IFZASM,SIZE=64K 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X SOURCE FOR NCP3 DOS X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
/X 
/* 


NOTE - This step Mill produce the cards necessary for the rest of the NCP 
generation. The output of this stage Mill have to be adjusted to point 
to the NCP macro library* if the NCP macros are put in a private 
library. The assemblies produced by the stage 1 job stream should be 
error free. The link-edit stage Mill have unresolved EXTRNS* but if all 
the assembly steps Mere correct* these can be ignored. 


ELEASE Mflli 


The stage 1 output should be closely examined. Defaultr do not create 
MNOTES. All defaults should be checked for correct value. 
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DOS/VS EXAMPLE OF STAGE 2 NCP GENERATION JCL 


// JOB SATLTCT 

// ASSGN SYSSLB,3330,VOL=RGW110,SHR 
// DLBL IJSYSSL*'NCP PSL' 

// OPTION DECK,NOXREF 
// EXEC IFZASM,SIZE=64K 
PUNCH * CATALR SATLTCT' 

SSATLTCT CSECT 

CXTLTC SWTD=NO,OLTT=l 

X PUT STATE ADDRESS TABLES ON 64 BYTE BOUNDARY 
PADSAT EQU 64+64XC (x-$SATLTCT-l)/64)-(x-$SATLTCT) 
DS (PADSAT)X 
X STATE ADDRESS TABLES 
X BSC EBCDIC 

RNSTAEBC BSCPTPT=0,BSCCNTL=1,MPTRB=0 
X DUPLEX LINE CONTROL 
CXBDLST 
SPACE 
END 

/X 

/& 


NOTE- This is an example of the job stream needed for the assembly of 
one of the NCP stages. There are approximatly 15 stages. Each of the 
stages Mill produce an object module that should be stored using the 
next example. The final step is a link-edit that Mill store the 
generated NCP load module in the system core-image library. 


DOS/VS JCL TO STORE NCP OBJECT MODULES FROM STAGE 2 


// JOB STORE NCP OBJECT MODULES 
// ASSGN SYSRLB,3330,VOL=DOS111,SHR 
// DLBL IJSYSRL»'NCP PRL' 

// EXEC MAINT 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

x INSERT OBJECT FROM NCP ASSEMBLY HERE X 
X STEP STORES OBJECT IN FILE FOR LINK-EDIT STAGE X 
X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

/X 

/& 
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NOTE- This library is used by the link-edit stage. If a new NCP 
generation is required* a different library should be specified unless 
the old NCP is not to be updated. 


DOS/VS SAMPLE FOR MOVING NCP LOAD MODULE 


// JOB PUNCH NCPSSS 
// DLBL IJSYSPH,'HAL NCP*,300 
// EXTENT SYSPCH,D0S111,1,0,2880,60 
ASSGN SYSPCH,SYSRES 
// EXEC CSERV 
PUNCH NCPSN2 
/X 
/* 

CLOSE SYSPCH,X'COD' 

/« 


NOTE- This step is required for DOS/VS VTAM. VTAM expects to find the 
NCP load module in a library specified in the VTAM start procedure. If 
the NCP Generation is done on another DOS system, at least two modules 
must be punched for the new system,NCPXXX and NCPxxxr where NCPxxx is 
the NCP name specified in the newname parameter of the NCP build macro. 
NCPxxxR is the resource resolution table required by the access method 
(EXTM or VTAM). If block handlers were specified for Start/Stop or BSC 
devices, NCPxxxB should also be punched. 
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DOS/VS SAMPLE JCL TO DUMP A 3705 AND PRINT THE DUMP 


// JOB DUMP DOS NCP 
// ASSGN SYS007,X'OBF' 

// DLBL NCPDUMP,*NCP3DUMP•»» DA 
// EXTENT SYS008,,,,6880,12 
// ASSGN SYS008,SYSRES 
// EXEC IFUREAD 

DUMP FROMADDR=200,FORMAT=Y,BUF=Y 

/X 

/« 


NOTE- Options for this procedure ere found in Chapter 8 of the NCP 
Generation Manual, GC30-3008. This example uses the same area defined in 
the VTAM start procedure. 


DOS/VS SAMPLE JCL TO PRINT A 3705 DUMP TAKEN BY VTAM 


// JOB PRINT DOS NCP 
// DLBL NCPDUMP,,0,DA 
// EXTENT SYS007,,,,6880,12 
// ASSGN SYS007,SYSRES 
// EXEC IFUDUMP 

DUMP FROMADDR=200,FORMAT=Y,BUF=Y 

/X 

/& 


NOTE- Options for this procedure are found in Chapter 8 of the NCP 
Generation manual, GC30-3008. This example operates on the dump area 
that is defined in the VTAM start procedure. 
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OS/VS1 Planning and Use Guide 
0S/VS1 System Generation Reference 
0S/VS1 Access Methods Services 
0S/VS1 VTAM System Programmer's Guide 
0S/VS1 JCL Reference 
OS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 
ACF/VTAM Reference Summary 


GC24-5090 

GC26-3791 

GC26-3840 

GC27-6996 

GT28-0618 

GX27-0034 

SC38-0258 

SC38-0269 

SX27-3021 


0S/VS1 SYSTEM GENERATION MACRO INSTRUCTIONS 


The actual SYSGEN specifications are not included. VTAM and GTF should 
be included as part of the sysgen. The samples included are based on the 
availability of two 3330 drives* an additional scratch drive and a tape 
drive. The VTAM system specifications are consistent with the NCP 
samples in Chapter 7 of this manual. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X THIS IS A PORTION OF STAGE 1 SYSGEN FOR THE VS/1-R6.0 X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL O' 

CHANNEL ADDRESS=0,TYPE=MULTIPLEXOR 
IODEVICE ADDRESS=OOA,UNIT=3505 
IODEVICE ADDRESS=0OB*UNIT-3525* FEATURE-TWOLINE 
IODEVICE ADDRESS=00C*UNIT-2540R*MODEL-1 
IODEVICE ADDRESS=00D,UNIT=2540P,MODEL=l 
IODEVICE ADDRESS=00E*UNIT=3211 

IODEVICE ADDRESS=00F,UNIT = 1403*MODEL=Nl» FEATURE=UNVCHSET 
IODEVICE ADDRESS=(010,2),UNIT=3791L (3790 LOCAL) 
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IODEVICE ADDRESS 2 01F»UNIT 2 3215»MODEL=1 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 0 (3270 LOCAL)' 

IODEVICE ADDRESS 2 (020,3),UNIT=3277,MODEL=2, X 

FEATURE 2 (EBKY3277,AUDALRM,MA6CDRD,NUMLOCK,SELPEN,DOCHAR) 
IODEVICE ADDRESS 2 023,UNIT 2 3286,MODEL=2,FEATURE 2 DQCHAR 
IODEVICE ADDRESS 2 (024,2),UNIT=3284,MODEL 2 2,FEATURE=DOCHAR 
IODEVICE ADDRESS 2 (026,14),UNIT 2 3277 »MODEL=2, X 

FEATURE 2 (EBKY3277,AUDALRM,MAGCDRD,NUMLOCK,SELPEN,DOCHAR) 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 0 (3705)' 

IODEVICE ADDRESS=05F,UNIT 2 3705,ADAPTER=CA1 
IODEVICE ADDRESS=0BF,UNIT 2 3705,ADAPTER 2 CA2 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 1* 

CHANNEL ADDRESS 2 1,TYPE 2 SELECTOR 
IODEVICE ADDRESS 2 (130,4),UNIT=2314,I0REQUE=PRI0RITY 
IODEVICE ADDRESS 2 (160,8),UNIT 2 3330,IOREQUE 2 PRIORITY 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 2' 

CHANNEL ADDRESS=2,TYPE=BLKMPXR 
IODEVICE ADDRESS=(230,8),UNIT=2314,IOREQUE=PRIORITY 
IODEVICE ADDRESS=(260,8),UNIT=3330,IOREQUE=PRIORITY 
TITLE 'VS1/REL6.0 - HARDWARE SPECIFICATION - CHANNEL 3* 

CHANNEL ADDRESS 2 3,TYPE=SELECTOR 
IODEVICE ADDRESS 2 (330,6),UNIT=2314,IOREQUE=PRIORITY 
IODEVICE ADDRESS 2 (360>8)»UNIT 2 3330,IOREQUE 2 PRIORITY 


IODEVICE ADDRESS 2 (380,4),UNIT=3420,M0DEL=3, X 

FEATURE=(9-TRACK,DUALDENS) 

IODEVICE ADDRESS 2 3BF,UNIT 2 3705,ADAPTER=CA2 
TITLE 'VS1/REL6.0 - CONTROL PROGRAM SPECIFICATIONS* 

CTRLPROG ASCII=INCLUDE, INCLUDE ASCII SUPPORT X 

AUTO=(VMSTART,NOLIST), AUTO START LIST X 

DYNINTR=(10,50,200,10000), DYNAMIC DISPATCH PARAMETERS X 
DYNPART=(P3-P5), PARTITIONS IN DYNAMIC DISPATCH X 

FETCH=STD, NO PCI FETCH (VM SYS) X 

MAXI0=80, GENERATE 80 12-STARS X 

OPTIONS 2 (BLDL,NODDRSYS,NODEBCHK,RDE,RER,TRSVCTBL) , X 

OVERLAY 2 ADVANCED, FULL-OVERLAY CHECKING X 

RESIDNT 2 (ACSMETH,ERP,RENTCODE,TRSVC), VTAM REQX 

SECURTY=FPROT, FETCH PROTECT PARTITIONS X 

SYSQUE=16, 16K SQA INITIALLY X 

TRACE=20, 20 ENTRY SYSTEM TRACE TABLE X 

TZ=(W,5,0), 5 HOURS WEST OF GMT IS LOCAL X 

VIRTUAL=4096, 4 MEG VIRTUAL MACHINE X 


VTAM REMI& ED 

VSAM=INCLUDE VIRTUAL SEQ ACCESS METHOD VTAM REQ 

VTAM REQUIRED 
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DATAMGT ACSMETH=(BTAM,ISAM,TCAM,VTAM), ALL ADDITIONAL VTAM REQX 
IND=YES INCLUDE INDUSTRY SUB-SYSTEM 

EDITOR SIZE=(200,40) 

GRAPHICS GSP=EXCLUDE,PORRTNS=EXCLUDE NO GRAPHICS 

JES ALCUNIT=73608, SPOOL ALLOCATION UNIT X 

BUFSIZE=3952, JES BUFFER SIZE (3952+144=4096) X 

JOBLOG=YES, LOG WTO AND UTORS X 

J0BQEXT=25, JOBQ EXTENTION ENTRIES X 

JOBQINT=200» INITIAL RESIDENT ENTRIES x 

JOBQNXT=10» NUMBER OF EXTENTIONS X 

JOBQVOL=VS1R60, VOL SER OF SYS1.JOBQUEUE X 

JOUTLIM=0, NO MAX TO OUTPUT LINES X 

NUMBUFS=100» NUMBER OF I/O BUFFERS IN POOL X 

RDR=(R=2»Y=5,B=800»A=2»N=84) » X 

SPOLCAP=80» 80 PERCENT SPOOL GIVES MESSAGE X 

SPOLVOL=VS1R60, VOL SER OF SYS1.SYSPOOL X 

STEPWTP=60» MAX WTP PER JOB STEP X 

SWDSLMT=80, NUMBER OF RESERVED JOBQ BLOCKS X 

WTLRCDS=2000, MAX WTL HELD PER DATA SET X 

WTR=(W=4,U=0,Z=6,B=2660) 

LOADER SIZE=256 

MACLIB EXCLUDE=(GPS,OCR), NOT NEEDED X 

INCLUDE=ISSP INDUSTRY SYSTEM SUPPORT MACROS 

PAGE DEV=3330, PAGING DEVICE TYPE (FOR NON-VM USE) X 

SIZE=(CYL,35), 35 CYLINDERS OF AREA X 

VOLNO=VS1R60 VOLSER OF PAGING PACK 

include partition foe gif 

PARTITNS P0(C-x,S-128), SYSTEM PARTITION-NEED I28K for VSAM X 

Pl(C-X,S-64), SYSTEM PARTITION X 

P2(C-F»S-256)» HI-PRIORITY USER PARTITION X 

P3(C-A,S-320), NORMAL USER PARTITION X 

P4(C-B,S-320), X 

P5(C-C,S-320) , X 

P6(C-N,S-768), LARGE USER PARTITION X 

P7(C-M,S-320), LOW-PRIORITY USER PARTITION X 

P8(C-X,S-0) LOW-PRIORITY SYSTEM PARTITION 

SCHEDULR ALTCONS=029, ALTERNATE CONSOLE ADDRESS X 

BCLMT=100, 100 SLOTS FOR BROADCAST X 

CONSOLE=01F, PRIMARY CONSOLE ADDRESS X 

ESV=SMF, I/O STATS TO SMF DATA SET X 

EVA=(15,15), TEMP READ/WRITE THRESHOLD X 

HARDCPY=SYSLOG, HARD COPY TO SYSPOOL DATA SET X 

IOC=01F, INTEGRATED OPERATOR CONSOLE X 

JOBQLMT=400, 400 BLOCKS PER INIT X 

JOBQLST=20, RESIDENT LIST ENTRIES X 

JOBQTMT=100» BLOCKS FOR CRITICAL SITUATION X 
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OPTIONS=CMCS,REMOTE,VM), FULL USEFUL OPTIONS X 

REPLY=5» NUMBER OF WTOR REPLY BUFFERS X 

SMF=FULL, FULL-BLOWN SMF X 

SYSWFMT=20, QUEUE BLOCKS PER LOGICAL TRACK X 

SYSWTMT=2200, CRITICAL RDR, WTR REQUIREMENT x 

VLMOUNT=AVR, AUTO VOLUME RECOGNITION X 

WTLCLSS=L» SYSOUT=L FOR LOG x 

WTOBFRS=60 NUMBER OF WTO BUFFERS 

TITLE »VS1/REL6.0 - SECONDARY CONSOLE SPECIFICATION* 

SECONSLE AREA=(5,6,8), LOGICAL SCREEN AREAS X 

CONSOLE=020, ADDRESS OF THIS CONSOLE x 

PFK=12, USE ALL 12 PF KEYS . X 

VTAM REQUIRES SYSTEM CONSOLES JO HAVE ROUTCDE=ALL 

ROUTCDE=ALL, ROUTE ALL MESSAGES x 

VALDCMD=(1,2,3) ALL COMMANDS ARE VALID 

SPACE 2 

SECONSLE AREA=<5,6,8), LOGICAL SCREEN AREAS X 

CONSOLE-021, ADDRESS OF THIS CONSOLE X 

PFK=12, USE ALL 12 PF KEYS X 

ROUTCDE=ALL, ROUTE ALL MESSAGES X 

VALDCMD=(1,2,3> ALL COMMANDS ARE VALID 

SECONSLE AREA-(5,6,8), LOGICAL SCREEN AREAS x 

CONSOLE=022, ADDRESS OF THIS CONSOLE X 

PFK=12, USE ALL 12 PF KEYS X 

ROUTCDE-ALL, ROUTE ALL MESSAGES X 

VALDCMD=(1,2,3) ALL COMMANDS ARE VALID 

TITLE ’VS1/REL6.0 - USER SVC SPECIFICATION* 

SVCTABLE SVC-255-D1-S0, USER SVC - TYPE 1 


TITLE ’VS1/REL6.0 - PRINTER UNIVERSAL CHARACTER SET SPECIFICATION* 

UCS DEFAULT=(H11,HN),IMAGE=ALL 
TITLE *VS1/REL6.0 - GENERATE - STAGE 2 SYSGEN INPUT* 

GENERATE GENTYPE=ALL, FULL SYSGEN X 

INDEX=SYS1, INDEX SYSTEM DATASETS SYS1 X 

RESVOL=CVS1R60,3330) SYSTEM RESIDENCE VOLUME 

END 


NOTE- Information for preparing the OS/VS1 system for VTAM is found in 
OS/VS1 System Programming Library* VTAM (GC27-6996), and the OS/VS1 
Sysgen Reference (GC26-3791) 
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OS/VS1 SYSTEM PARAMETER DEFINITIONS 


./ ADD NAME=IEAAPFPS,LEVEL=00,SOURCE=0,LIST=ALL 
IMS.RESLIB USRLB2, 

IMS.PGMLIB USRLB2, 

SYS1.VTAMLIB IP0R21, 

SYS1.NCPLIB USRLB2, 

SYS1.LINKLIB2 USRLBI, 

SYS2.LINKLIB USRLBI, 

SYSl.OLTLIB USRLBI, 

SYS1.CDSLIB USRLBI, 

LAST.ENTRY DUMMY 


./ ADD 




NAME=LNKLSTPS,LEVEL=00,SOURCE=0,LIST=ALL 


SYS1.LINKLIB, 
SYS1.LINKLIB2, 
IMS.RESLIB, 
SYS1.TCAMLIB, 
NCP6.SSPLIB, 
SYS2.LINKLIB 


USER UTILITIES 
IMS LIBRARY 
TCAM PROGRAMS 
NCP6 UTILITIES 
USER LINK LIB 


XXXXXXXXX 

XXXXXXXXXXX 

xxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxx 


./ ADD NAME=VATLSTPS 
USRLBI,1,0,3330-1 ,N 
USRLB2,1,0,3330-1 ,N 
DLIB01,1,2,3330 ,N 
VS1RES,1,2,3330 ,N 
NCPLIB,1,0,3340 ,N 


LIBRARY PACK 
LIBRARY PACK 
VS1 DLIB 
SYSRES 

NCP6 LIBRARY 


NOTE- Information for preparing the OS/VS1 system parameters is found in 
OS/VS1 Sysgen Reference (GC26-3791) 
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0S/VS1 SAMPLES 


OS/VS1 START PARAMETER DEFINITION (VTAM AND ACF/VTAM) 


./ ADD NAME=ATCSTR00,LEVEL=00,SOURCE=0,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXX 
X X 

x MINIMUM STARTUP - SHOULD BE USED FOR OS/VS VTAM AND ACF/VTAM x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
TRACE,TYPE=SMS,ID=VTAMBUF, 

MAXSUBA=31, 

SSCPID=0I, 

NETSOL=NO 


NOTE- The above start-up definition can be used to initialize VTAM. The 
default buffer values are unusable and should be changed before 
activating any nodes. 
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OS/VS1 VTAM START PARAMETER DEFINITION (TEST) 


./ ADD NAME=ATCSTR01,LIST=ALL,SOURCE-O,LEVEL=00 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X VTAM START PARAMETERS X 

X NOTE: THE IOBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE X 

X IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

X BUFFER POOL START PARAMETERS IS EITHER X 

X XXBUF=(BNO,BSZ,BTHZ) AS INDICATED BELOM. x 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONFIG=01, PREDEFINED LIST OF MAJOR NODES CATCCONOl) X 

SSCPID=01, VTAM IDENTIFICATION X 

TRACE,TYPE=SMS,ID=VTAMBUF, X 

NETSOL=NO» NETWORK SOLICITOR IS NOT TO BE STARTED X 

MAXSUBA-15, NUMBER OF MAJOR NODES, VALUE MUST ALSO BE IN NCP X 

APBUF=C64,,58), ACTIVE 8 INACTIVE BUFFER POOL - PAGEABLE STORAGE X 

CRPLBUF=(120,,110), RPL-COPY POOL IN PAGEABLE STORAGE X 

IOBUF 5 (71,152,50), FIXED STORAGE MESSAGE POOL X 

LFBUF=(33,,33), LARGE FIXED STORAGE I/O BUFFER POOL X 

LPBUF=(100,,90), LARGE PAGEABLE-STORAGE BUFFER POOL X 

NPBUF=(100»,90), DEVICE CONNECTION BUFFER POOL, PAGEABLE X 

PPBUF=(130,152,120), PAGEABLE DATA BUFFER POOL X 

SFBUF=(40,,40), SMALL FIXED STORAGE BUFFER POOL X 

SPBUF=(12,,12), SMALL PAGEABLE-STORAGE BUFFER POOL X 

UECBUF=(130,,120), USER-EXIT CONTROL BLOCK (UECB) POOL X 

WPBUF=(130,,120) DEVICE CONNECTION BUFFER POOL - PAGEABLE 

./ ENDUP 

/X 


NOTE- Details for coding and filing start parameters are found in 
Chapter 7 of the OS/VS1 System Programmer’s Guide(GC27-6996). 

ATCSTROO is required by VTAM even if all defaults are taken. The system 
defaults Mill not support more than one active application program, 
including the Network Solicitor, and will not support an active NCP. 
ATCSTR01 specifies the values necessary to support a small network 
consisting of an NCP with 6 Ports, 6 Start/Stop terminals, 4 local 
3270's, 6 BSC terminals, 7 PU's, and 32 LU's. 
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0S/VS1 SAMPLES 


OS/VS1 ACF/VTAM START PARAMETER DEFINITION (TEST) 

./ ADD NAME=ATCSTRAC,LEVEL=00,SOURCES,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


x X 

X ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. X 

X X 

X NOTE! THE IOBUF (BUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE X 

x IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

X BUFFER POOL START PARAMETERS IS EITHER X 

X XXBUF=(BASENO,BUFSIZE,SLOWPT,XPANNO,XPANPT) X 

X OR XXBUF=VBSZ AS INDICATED BELOW. X 

X XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF X 

X BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE X 

X INCREMENTS. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

TRACE,TYPE=SMS,ID=VTAMBUF, X 

TNSTAT,CNSL,TIME=IO, X 

MAXSUBA=31> X 

NOPROMPT, X 

CONFTG-AC, X 

SSCPID=01, X 

H0STSA=13, X 

MAXAPPL=40, X 

VTAMEAS=150, X 

NETSOL=NO, X 

SFBUF=(60,,2,,01,3), XXX XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE X 
LFBUF=(37>,2,,01,3), 1 PAGE OF BUFFERS SINCE THEY ARE ALWAYS X 

LPBUF=(32,,1,,01,2>, ACQUIRED IN PAGE INCREMENTS XXX X 

NPBUF=(23,,2,>01,3), X 

CRPLBUF=(40,,2,,01,3>, X 

IOBUF=(60,152,4,,01,26), X 

Note - The difference between SLOWPT end XPANPT must be greater then 
the largest MAXBFRU defined in any NCP or Local definition. 
APBUF=(66,,2,,01,3), X 

SPBUF=(66,,2,,01,3), X 

UECBUF=(39»,2,,01,3), X 

WPBUF=(27,,2,,01,3), X 

PPBUF=(29*152»2,,01,3) 

./ ENDUP 

/X 
// 


NOTE- Details for coding and filing start parameters are found in the 
ACF/VTAM System Programmers Guide: VTAM (SC38-0258). 
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0S/VS1 SAMPLES 


OS/VS1 VTAM APPLICATION DEFINITION EXAMPLE 


./ ADD NAME=APPCON01,LEVEL=00,SOURCE=0» LIST=ALL 

./ NUMBER NEW1-10,INCR=10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X APPLICATION PROGRAM DEFINITION FOR VTAM X 

X WHERE THE OPERANDS AVAILABLE ARE: X 

x PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN x 

X APPLICATION PROGRAM * ACB'. X 

X BUFFACT=N|1, APPLIES ONLY TO BASIC NEWE. X 

X AUTH=(ACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE X 

X THE OPNDST MACRO WITH THE X 

X ACQUIRE OPTION. X 

X BLOCK|NOBLOCK, NOT USED WITH SDLC OR 3270. X 

x PASS|NOPASS, ALLOWS USE OF CLSDST MACRO x 

X WITH THE PASS OPTION. X 

X TCAM) ALLOWS PATH TO TCAM 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SAMP1 APPL AUTH=(ACQ) 

DBDCCICS APPL AUTH=(ACQ,BLOCK) 

BATCH APPL AUTH=(ACQ) 

VSPC APPL AUTH=(ACQ,NOBLOCK,NOPASS),PRTCT=ALVERTA 
INQ3790 APPL AUTH=(NOACQ) 

INQALL APPL PRTCT=OKAYOKAY,AUTH=(ACQ) 

HOSTPGM1 APPL AUTH=(NOACQ) 

INQ APPL AUTH=(ACQ,BLOCK) 

TEST1 APPL AUTH=(ACQ,PPO) 

BASIC2 APPL AUTH=(ACQ,PASS,SPO,BLOCK) 

IEDQTCAM APPL AUTH=(ACQ,TCAM,BLOCK),PRTCT=PASSWORD 

TCAM APPL AUTH=(ACQ,TCAM,BLOCK),PRTCT=PASSITON 

RTAM APPL AUTH=ACQ,BUFFACT=2 

./ ENDUP 

/X 


NOTE- Defining application parameters is described in Chapter 5 
(Defining Application Programs) of the OS/VS1 VTAM Systems Programmer's 
Guide(GC27-6996). 

The following applies to VTAM II, not ACF/VTAM: 

When a definition is changed in SYS1.VTAMLST, the member name must be 
deleted from the SYS1.VTAM0BJ data set, otherwise VTAM will not use the 
new version. This applies to all members of SYS1.VTAMLST except the 
start and configuration definitions. 
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0S/VS1 SAMPLES 


OS/VS1 ACF/VTAM APPLICATION DEFINITION EXAMPLE 


./ ADD NAME=APPCONAC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 
X APPLICATION PROGRAM DEFINITION FOR VTAM X 
X WHERE THE OPERANDS AVAILABLE ARE: X 
X ACBNAME=ACBNAME, MINOR NODE NAME. DEFAULTS TO NAME X 
X ON APPL STATEMENT. 

X PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN x 
X APPLICATION PROGRAM 'ACB". X 
X BUFFACT=N11, MAXIMUM NUMBER OF VTAM PPBUF'S. IT X 
X APPLIES TO BASIC MODE ONLY. X 
X VPACING=N» MAXIMUM NUMBER OF NORMAL-FLOW X 
X REQUESTS FROM LU. X 
X MODETAB=MODETAB NAME, NAME OF MODETAB TO BE USED BY THE X 
X APPLICATION. X 
X DLOGMOD=DEFAULT LOG- NAME OF LOGMODE ENTRY TO BE USED X 
X MODE ENTRY IF NONE IS OTHERWISE PROVIDED. X 
X EAS=N|404, NUMBER OF CONCURRENT SESSIONS THIS X 
X APPLICATION PROGRAM WILL HAVE WITH X 
X ANY LOGICAL UNITS. X 
X AUTH = (ACQINOACQ, ALLOWS APPLICATION PROGRAM TO USE X 
X THE OPNDST MACRO WITH THE X 
X ACQUIRE OPTION. X 
X PPOlSPOlNOPO, DEFAULTS TO NOPO. SEE THE PROGRAM X 
X OPERATOR GUIDE FOR ITS USE. X 
X BLOCK|NOBLOCK, BASIC MODE ONLY. X 
X VPACElNVPACE, DETERMINES IF APPLICATION IS TO BE X 
X SUBJECT TO VPACING FOR LU. DEFAULTSX 
X TO VPACING. x 
X PASS|NOPASS) ALLOWS USE OF CLSDST MACRO X 
X WITH THE PASS OPTION. X 


BUFFACT=NI1, 


VPACING=N, 


DLOGMOD=DEFAULT LOG¬ 
MODE ENTRY 
EAS S N|404, 


AUTH=(ACQINOACQ, 


PPOlSPOlNOPO, 

BLOCK|NOBLOCK, 
VPACElNVPACE, 


PASS|NOPASS) 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SAMP1 APPL 
CICS APPL 
PROG1 APPL 
INQALL APPL 
RTAM APPL 
BATCH APPL 
INQ3790 APPL 
TEST3 APPL 
SYSSSS APPL 


AUTH=(ACQ),DLOGMOD=S3270,EAS=2 

AUTH=(ACQ),EAS=40 

AUTH=(ACQ),EAS=10 

PRTCT=OKAYOKAY,EAS=10 

AUTH=(ACQ),EAS=10 

AUTH=(ACQ),EAS=1 

AUTH=CNOACQ),MODETAB=MODE3790,EAS=4 

AUTH=(ACQ)»EAS=1 

AUTH=(ACQ),DLOGMOD=BATCH,EAS=1 
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NOTE- Defining end filing application parameters is described in 
Defining VTAM Application Programs of the ACF/VTAM Systems Programmers 
Guide: (SC38-0258). 


0S/VS1 NCP DEFINITION EXAMPLE 


./ ADD NAME=NCPSN2,LEVEL=00,SOURCE=0,LIST=ALL 
./ NUMBER NEW1=10,INCR=10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 
X SOURCE FOR NCP X 


See NCP examples in Chapter 7. 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
./ ENDUP 

/X 


Notes- Chapter 4 of the OS/VTAM System Programmer’s Guide end the 
NCP/VTAM generation guide are required. The host macro definition must 
be consistent Mith the VTAM start parameters. 

The source from the NCP generation should be used here after removing 
the assembler control cards. When testing the NCP the first time* all 
the PU's should contain the VTAM parameter 'ISTATUS=INACTIVE'. After 
loading the NCP they should be varied 'active* individually. Later* when 
the PU and its resources are operational* this member can be updated to 
change the ISTATUS to 'ACTIVE*. 

The following applies to VTAM II* not ACF/VTAM: 

When a definition is changed in SYSl.VTAMLST* the member name must be 
deleted from the SYS1.VTAM0BJ data set* otherwise VTAM will not use the 
new version. This applies to all members of SYSl.VTAMLST except the 
start and configuration definitions. 
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OS/VS1 CONFIGURATION DEFINITION 


./ ADD NAME=ATCCON00,LEVEL=00,SOURCES,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X START-UP CONFIGURATION* APPLICATION CONFIGURATION ONLY X 

X X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXX 
APPCONOl 

./ ADD NAME=ATCCON01,LEVEL=00,SOURCES,LIST=ALL 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


START-UP CONFIGURATION, LOCAL 3270, AND NCP 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPCONOl,LOCCONOl 
./ ENDUP 

/X 
// 


NOTE- To alloui the operator to activate the NCP, ATCCONOO should be 
specified. To autoload the NCP, ATCCONOl should be specified. 
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OS/VS1 USSTAB INSTALLATION JCL 


//USSTAB JOB *USSTAB ASSEMBLY',CLASS=C 

//STEP! EXEC ASMFCL 

//ASM.SYSPUNCH DD DUMMY 

//ASM.SYSIN DD X 

Source Deck 

//LKED.SYSLMOD DD DSN=SYSl.VTAMLIBCNeme),DISP=SHR 
/x 


OS/VS1 MODETAB ASSEMBLY 


//MODETAB JOB 'MODETAB ASSEMBLY',MSGLEVEL=1,CLASS=C 

//STEP1 EXEC ASMFCL 

//ASM.SYSPUNCH DD DUMMY 

//ASM.SYSIN DD X 

Source Deck 

//LKED.SYSLMOD DD DSN=SYSl.VTAMLIB(Modetab Name),DISP=SHR 
/x 


OS/VS1 INTERPRET TABLE INSTALLATION JCL 


//LOGASM JOB »LOGTAB ASSEMBLY* 

//STEP! EXEC ASMFCL 
//ASM.SYSPUNCH DD DUMMY 
//ASM.SYSIN DD X 
Source Deck 

//LKED.SYSLMOD DD DSN-SYS1.VTAMLIB(Name)>DISP-SHR 

/X 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to 'logon* to application programs via the Network Solicitor. 
Chapter 9 of the OS/VS1 VTAM System Programmers Guide describes the 
generation of the interpret table. 
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0S/VS1 SAMPLES 


OS/VS1 EXAMPLE OF START PROCEDURE (VTAM OR ACF/VTAM) 


//PROCUP JOB 123,'UPDATE PROCS*,REGION=100K 
// FXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD LIST=ALL,NAME=NET,LEVEL=01,SOURCE=0 

./ NUMBER NEM1=10,INCR S 10 

//NET EXEC PGM=ISTINA01 
//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 

//VTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 

//INITEST DD DSN=SYS1.LINKLIB,DISP=SHR 

//NCPLOAD DD DSN=SYS1.NCPLOAD,DISP=SHR 
//NCPDUMP DD DSN=NCPDUMP,DISP=MOD 
//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 
//SYMSYM DD DSN=SYMSYM,DISP=SHR 
./ ADD LIST=ALL,NAME=NETSSC,LEVEL=01,SOURCE=0 

./ NUMBER NEW1=10,INCR=10 

//NET EXEC PGM=ISTINA01 
//STEPCAT DD DSN=USRVCAT,DISP=SHR 
//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 

//VTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 

//INITEST DD DSN=SYS1.LINKLIB,DISP=SHR 

//LRNCKPT DD DSN=LRNCKPT,DISP=MOD 
//NCP001 DD DSN=NCP001,DISP=MOD 
//LOCOOl DD DSN=LOC001,DISP=MOD 
//SWT001 DD DSN=SWT001,DISP=MOD 
//NCPLOAD DD DSN=SYS1.NCPLOAD,DISP=SHR 
//NCPDUMP DD DSN=NCPDUMP,DISP=MOD 
./ ENDUP 
// 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 
unless the Customer Engineer has prepared these data sets. The system 
can be installed without these data sets but they must be installed if 
TOLTEP is to be used. 
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OS/VS1 RTAM GENERATION SAMPLE 


LINE 

LINEID=1,LDESCR=(1,1), 

AUTOLOG=YES 

BSC,FDX,TRANSPARENCY 

X 

LINE 

LINEID=2,LDESCR=(1,0), 

AUTOLOG=YES 

BSC,FDX,N0 TRANSPARENCY 

X 

LINE 

LINEID=3,LDESCR=(0,1), 

AUTOLOG=YES 

BSC,HDX,TRANSPARENCY 

X 

LINE 

LINEID=4,LDESCR=(0,0), 

AUTOLOG=YES 

BSC,HDX,NO TRANSPARENCY 

X 


X 2770 COMPRESS/NO TRANSPARENCY 512 BYTE BUFFER 

TERMINAL TDESCR=(3,0,3,6),LNUM=1,C0MPRES=YES, X 

BUFXSIZ=512,TERMID=1 
X 

X 2770 COMPRESS/NO TRANSPARENCY 256 BYTE BUFFER 

TERMINAL TDESCR=(3,0,3,6),COMPRES=YES, X 

TERMID=2 

X 3780 COMPRESS/NO TRANSPARENCY 

TERMINAL TDESCR=(3,7,3,1),COMPRES=YES,PCHS-0,TERMID=3 

X 

X 3780 COMPRESS/NO TRANSPARENCY/3781 CARD PUNCH 

TERMINAL TDESCR=C3,7,3,3),COMPRES=YES,TERMID=4 
X 

X 3780 NO COMPRESS/TRANSPARENCY/3781 CARD PUNCH 

TERMINAL TDESCR=(3,7,3,7),COMPRES=NO,TERMID=5 
x 

X 3770 SNA-CONSOLE PRINTER ONLY 

TERMINAL TDESCR=(3,8,5,1),VBUF=3 
TERMINAL TDESCR=(3,8,5,1),VBUF=6 
TERMINAL TDESCR=(3,8,5,1),VPUF=9 
TERMINAL TDESCR=(3,8,5,1),VBUF=20 
TERMINAL TDESCR=(3,8,5,1),VBUF=45 

X 3770 SNA-CONSOLE PRINTER + LINE PRINTER 

TERMINAL TDESCR=C3,8,5,3),VBUF=3 
TERMINAL TDESCR=(3,8,5,3),VBUF=6 
TERMINAL TDESCR=(3,8,5,3),VBUF=9 
TERMINAL TDESCR=(3,8,5,3),VBUF=20 
TERMINAL TDESCR=(3,8,5,3),VBUF=45 
X 3790 SNA —CONSOLE, RDR, 2 PTRS, 1 WTR (DISK) 

TERMINAL TDESCR=(3,8,5,2),RDRS=1,PTRS=3,PCHS=0, 

PLGN=0,COMPRES=YES,BUFXSIZ=256,CNMSGN0=5,VBUF=9, 
N0DE=(RJE1F,RJE2F,RJE3F,RJE4F),SESSLIM=4,CPACTBL=N0 
RTAM INTPR=YES,TPBFSIZ=512,MXINTBR=1024,PORTS=3, 

SNACOMP=YES, 

TPBUF=19,TPREAD=6,TPPRINT=8,TPPUNCH=4, 

WAITIME=1,MSGFCTR=10,CPACT=YES 
END 
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0S/VS1 SAMPLES 


OS/VS1 JCL FOR 6TF PROCEDURE AND PARAMETERS FOR VTAM TRACE TO TAPE 


//ADDGTF JOB MSGLEVEL=1,REGION=100K,CLASS=A 
// EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME s SYSl.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GTFTAPE,LIST=ALL 

./ NUMBER NEW1=10,INCR=10 

//GTFTAPE PROC A=GTF2 

//IEFPROC EXEC PGM=HHLGTF, 

// PARM= , MODE=EXT,DEBUG=NO,TIME=YES* 

//IEFRDER DD UNIT=2400-3,VOL=SER=GTFXXX,LABELS,NL), 
// DCB=(BLKSIZE=3500,RECFM=U),DISP=SHR 

//SYSPRINT DD SYSOUT=A,SPACE=(TRK,(l»l)) 

//SYSLIB DD DSN=SYS1.PARMLIBC&A),DISP=SHR 

./ ENDUP 
/* 

//PARMDEF JOB MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAKE=GTF2,LIST=ALL 

TRACE=RNIO* USR 

./ ENDUP 

/X 


NOTE- Information on this service aid may be found in the OS/VS1 
Services Aid SRL GC28-0665. 
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OS/VS1 JCL FOR PRINTING VTAM TRACE RECORDS 


//ADDPRT JOB MSGLEVEL=1,REGION=100K,CLASS=A 
// EXEC PGM=IEBUPDTE»PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYSl.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GTFTPRT,LIST=ALL 

./ NUMBER NEM1~10>INCR~10 

//VPRDMP PROC A=GTFP2»ASREGN=128K 

//* USE TO DUMP VTAM TRACE FILES 

//DMP EXEC PGM=HMDPRDMP,REGI0N=8ASREGN 

//PRINTER DD SYSOUT=A 

//TAPE DD DSN=SYS1.TRACE,UNIT=2400-3,LABEL=(,NL),DISP=SHR, 
// VOL=SER=GTFXXX 

//SYSUT1 DD DSN=8«W0RK,SPACE=CCYL,(3,1)),UNIT=SYSDA 
//SYSPRINT DD SYSOUT=A,SPACE=CTRK,(1,1)) 

//SYSIN DD DSN = SYS1 .PARMLIB(StA) ,DISP=SHR 

./ ENDUP 
/* 

//PARMUP JOB MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB»DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GTFP2,LIST=ALL 

EDIT DDNAME=TAPE,RNIO,USR=CL01,USR=CL02,USR=TPIO,USR=LINE 
END 

./ ENDUP 

/X 


NOTE- Information on this service aid may be found in the 
Services Aid SRL GC28-0665. 


OS/VS1 
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5-1 : OS/SVS ( 0S/VS2 H.D SAMPLES . 


REFERENCES 

0S/VS2 Sysgen Reference 

0S/VS2 SVS VTAM System Programmer's Guide 
0S/VS2 SVS VTAM Component Release Guide 
0S/VS2 JCL Reference 

0S/VS2 System Programming Library* Service Aids 
OS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 
ACF/VTAM Reference Summary 


GC26-3792 

GC27-0049 

GC27-0053 

GT28-0618 

GT28-0663 

GX27-0034 

SC38-0258 

SC38-0269 

SX27-3021 
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0S/SV5 SAMPLES 


OS/SVS SYSTEM GENERATION MACRO INSTRUCTIONS 


The actual SYSGEN specifications are not included.The VTAM system 
definitions for 0S/VS2 R1.7 are almost the same as 0S/VS1 R6. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXKXXXXKKKKXXK*KKKKXXXXXKXXX*XXXXXXXXXX 


IQDEVICE MACRO INSTRUCTIONS REQUIRED FOR VTAM If USED . 

I0DEVICE ADDRESS=(010»2)»UNIT=3791L (3790 LOCAL) 


I0DEVICE ADDRESS-(020»3)»UNIT = 3277,M0DEL=2» * 

FEATUREDEBKY3277,AUDALRM,MAGCDRD,NUML0CK,5ELPEN,D0CHAR) 
IODEVICE ADDRESS=023,UNIT=3286,MODEL=2,FEATURE=DOCHAR 
IODEVICE ADDRESS=(024,2)>UNIT = 3284»M0DEL=2» FEATURE=DOCHAR 

IODEVICE ADDRESS=05F,UNIT=3705,ADAPTER=CA1 
IODEVICE ADDRESS=OBF»UNIT=3705,ADAPTER=CA2 


. PATAM GT MACRO INSTRUCTION ADDITION . 

DATAMGT ACSMETH=(VTAM»TCAM)» REQUIRED FOR VTAM AND/OR TCAM X 
IND=YES INCLUDE INDUSTRY SUB-SYSTEM 


DATASET MACRO SPECIFICATION CHANGES 

DATASET VTAMLIB,VOL=(SSVS70,3330)»SPACE=(CYL,(5,1,5) 
DATASET INDMAC,VOL=(SSVS70,3330) 


NOTE- Information for preparing the OS/SVS system for VTAM is found in 
0S/VS2 SVS VTAM System Programmer's Guide (GC27-0049), and the 0S/VS2 
SVS VTAM Component Release Guide (GC27-0053). 
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OS/SVS SAMPLES 


ACF/VTAM PARAMETER DEFINITIONS 


For ACF/VTAM definitions, please refer to the ACF/VTAM definitions in 
the 0S/VS1 section. 


OS/SVS START PARAMETER DEFINITION EXAMPLE 


./ ADD NAME=ATCSTR00,LEVEL=00,SOURCE=0,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXXXXXXX 


X X 

x MINIMUM VTAM SYSTEM - NO NCP X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONFIG=00, PREDEFINED LIST OF MAJOR NODES (ATCCONOO) X 

SSCPID=01 VTAM IDENTIFICATION 

./ ADD NAME=ATCSTR01,LIST=ALL,SOURCE=0,LEVEL=00 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X X 

X VTAM START PARAMETERS X 

X NOTE: THE IOBUF (BSZ) PARAMETER MUST EQUAL THE UNITbZ VALUE X 

x IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

X BUFFER POOL START PARAMETERS IS EITHER X 

x XXBUF=(BNO,BSZ,BTHZ) OR XXBUF=VBSZ AS INDICATED BELOW. x 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONFIG=01, PREDEFINED LIST OF MAJOR NODES (ATCC0N01) X 

NETSOL=NO, NETWORK SOLICITOR IS NOT TO BE STARTED X 

MAXSUBA=15, NUMBER OF MAJOR NODES, VALUE MUST ALSO BE IN NCP X 

I0BUF=(71,152,50), FIXED STORAGE MESSAGE POOL X 

PPBUF=(76,152,72), PAGEABLE DATA BUFFER POOL X 

TRACE,TYPE=SMS,ID=VTAMBUF 
./ ENDUP 

/x 


NOTE- Details for coding and filing start parameters are found in 
Chapter 5 of the 0S/VS2 SVS VTAM System Programmer's Guide (GC27-0049). 

ATCSTR00 is required by VTAM even if all defaults are taken. The system 
defaults for IOBUF AND PPBUF should not be used. ATCSTR01 will support a 
small NCP and can be used for initial system checkout. 
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os/svs sampi.es 


OS/SVS VTAM APPLICATION DEFINITION EXAMPLE 


./ ADD NAME=APPCON01,LEVEL=00,SOURCE=0,LIST=ALL 

./ NUMBER NEWl^lO»INCR=10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 


X 


X APPLICATION PROGRAM DEFINITION FOR VTAM 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


WHERE THE OPERANDS AVAILABLE ARE: 


PRTCT=PASSWORD, 

BUFFACT=N|1, 
AUTH=(ACQ|NOACQ, 


BLOCK|NOBLOCK, 
PASS|NOPASS) 


PASSWORD MUST ALSO BE DEFINED IN X 
APPLICATION PROGRAM ' ACB'. X 
MAXIMUN PPBUF QUEUE FOR APPLICATIONX 
ALLOWS APPLICATION PROGRAM TO USE x 


THE OPNDST MACRO WITH THE 
ACQUIRE OPTION. 

NOT USED WITH SDLC OR 3270. 
ALLOWS USE OF CLSDST MACRO 
WITH THE PASS OPTION. 


x 

x 

x 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SAMP1 

APPL 

AUTH=CACQ) 

DBDCCICS 

APPL 

AUTH=(ACQ) 

BATCH 

APPL 

AUTH=CACQ) 

INQ3790 

APPL 

AUTH=CNOACQ) 

INQALL 

APPL 

PRTCT=OKAYOKAY,AUTH=(ACQ) 

EMESG 

APPL 

PRTCT=VTAMMESG,AUTH=(ACQ,BLOCK) 

INQ 

APPL 

AUTH-CACQ,BLOCK) 

TEST1 

APPL 

AUTH=CACQ,PPO) 

BASIC2 

APPL 

AUTH=CACQ,PASS,SPO,BLOCK) 

SYSSSS 

APPL 

AUTH=(ACQ) 

./ 

ENDUP 


/X 




NOTE- Defining end filing application parameters is described in Chapter 
3 of the 0S/VS2 SVS VTAM Systems Programmer's Guide. 
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OS/SVS NCP DEFINITION EXAMPLE 


./ ADD NAME-NCPSN2*LEVEL = 00,SOURCE=0 * LIST-ALL 

./ NUMBER NEW1=10,INCR=10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X SOURCE FOR NCP X 

See NCP examples in Chapter 7. 

x x 

XXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

./ ENDUP 

/X 


NOTE- Chapter 2 of the SVS VTAM System Programmer’s Guide and the 
NCP/VTAM generation guide are required. The host macro definition must 
be consistent with the VTAM start parameters. 

The source from the NCP generation should be used here after removing 
the assembler control cards. When testing the NCP the first time* all 
the PU's should contain the VTAM parameter 'ISTATUS=INACTIVE’. After 
loading the NCP they should be varied ’active’ individually. After a PU 
and its resources are operational* this member can be updated to change 
the ISTATUS to ’ACTIVE’. 

The following applies to VTAM II* not ACF/VTAM* 

When a definition is changed in SYS1.VTAMLST* the member name must be 
deleted from the SYS1.VTAM0BJ data set* otherwise VTAM will not use the 
new version. This applies to all members of the SYS1.VTAMLST except the 
start definition. 
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OS/SVS SAMPLES 


OS/SVS CONFIGURATION DEFINITION 


./ ADD NAME=ATCCONOO,LEVEL s OO,SOURCE s O,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

x START-UP CONFIGURATION, APPLICATION CONFIGURATION ONLY X 

x x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKX 


APPCONOl 

./ ADD NAME=ATCCON01* LEVEL=00»SOURCE=0»LIST=ALL 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X START-UP CONFIGURATION, LOCAL 3270, AND NCP X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


APPCONOl,LOCCONOl,NCPSN2 
./ ENDUP 

/x 
// 


NOTE- To allow the operator to activate the NCP, ATCCONOO should be 
specified. To autoload the NCP, ATCCONO.l should be specified. 
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OS/SVS SAMPLE INSTALLATION JCL FOR USSTAB 


//USSTAB JOB *USSTAB ASSEMBLY',CLASSIC 
//STEP1 EXEC ASMFCL 
//ASM.SYSPUNCH DD DUMMY 
//ASM.SYSIN DD x 


Add source here: 

//LKED.SYSLMOD DD DSN=SYSl.VTAMLIB(usstab),DISP=SHR 
/x 


NOTE - The System Programmers Guide for the applicable level of VTAM or 
ACF/VTAM should be referenced. 


OS/SVS SAMPLE JCL FOR INTERPRET TABLE INSTALLATION 


//LOGASM JOB • ',MSGLEVEL=1,REGION=200K 

//STEP1 EXEC ASMFCL 
//ASM.SYSPUNCH DD DUMMY 
//ASM.SYSIN DD X 

Add source here: 

//LKED.SYSLMOD DD DSN=SYS1.VTAMLIBLtable),DISP=SHR 
/X 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to 'logon' to application programs via the Network Solicitor. 
Chapter 9 of the OS/SVS VTAM System Programmers Guide describes the 
generation of the interpret table. 
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OS/SVS SAMPLES 


OS/SVS EXAMPLE OF START PROCEDURE 


./ ADD LIST=ALL,NAME=NET,LEVEL=01,SOURCE=0 

./ NUMBER NEW1=10»INCR=10 

//X ADD REGION SIZE IF TO BE RUN IN A REGION 
//NET EXEC PGM=ISTINS01 

//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 

//VTAMOBJ DD DSN=SYSl.VTAMOBJ,DISP=SHR 

//INITEST DD DSN = SYS1.LINKLIB > DISP=SHR 

//NCPLOAD DD DSN=SYS1.NCPLOAD,DISP=SHR 

//NCPDUMP DD DSN=NCPDUMP»DISP=MOD 

//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 

//SYMSYM DD DSN=SYMSYM,DISP=SHR 

./ ADD LIST=ALL,NAME=NETSSC,LEVEL=01,$OURCE=0 

./ NUMBER NEM1=10,INCR-10 

//NET EXEC PGM=ISTINS01 

//STEPCAT DD DSN=USRVCAT,DISP=SHR 

//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=SYS1.VTAMLST,DISP=SHR 

//VTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 

//INITEST DD DSN=SYS1.LINKLIB,DISP=SHR 

//LRNCKPT DD DSN=LRNCKPT,DISP=MOD 

//NCP001 DD DSN=NCP001,DISP=MOD 

//LOCOOI DD DSN=LOC001,DISP=MOD 

//SUT001 DD DSN=SWT001,DISP=MOD 

//NCPLOAD DD DSN=SYS1.NCPLOAD,DISP=SHR 

//NCPDUMP DD DSN=NCPDUMP,DISP=MOD 

./ ENDUP 
// 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 
unless the Customer Engineer has prepared these data sets. The system 
can be installed without these data sets but they must be installed 
before TOLTEP can be used. 
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OS/SVS JCL FOR 6TF PROCEDURE AND PARAMETERS FOR VTAM TRACE TO TAPE 


./ ADD NAME=GTFTAPE,LIST-ALL 
./ NUMBER NEW1=10,INCR=10 
//GTFTAPE PROC A=GTF2 
//IEFPROC EXEC PGM=AHLGTF,REGION=64K, 

// PARM='MODE=EXT,DEBUG=NO,TIME=YES' 

//IEFRDER DD UNIT=2400-3,VOL=SER=GTFXXX,LABEL=(,NL), 
// DCB=(BLKSIZE=350O,RECFM=U),DISP=SHR 

//SYSPRINT DD SYSOUT=A,SPACE=(TRK,(l,l)) 

//SYSLIB DD DSN=SYS1.PARMLIB(»A),DISP=SHR 

./ ENDUP 
/x 

//PARMDEF JOB MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=NEW 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GTF2,LIST=ALL 

TRACE=RNIO,USR 

./ ENDUP 

/X 


NOTE- Information on this service aid may be found in the OS/VS Services 
Aid SRL GC28-0633. 


G320-6028 (2/79) 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 5-49 



OS/SVS SAMPLES 


OS/SVS JCL FOR PRINTING VTAM TRACE RECORDS 


./ ADD NAME=GTFTPRT,LIST=ALL 
./ NUMBER NEW1=10,INCR=10 
//VPRDMP PROC A=GTFP2,ASREGN=128K 
//* USE TO DUMP VTAM TRACE FILES 
//DMP EXEC PGM=AMDPRDMP,REGI0N=8ASREGN 
//PRINTER DD SYSOUT=A 

//TAPE DD DSN=SYSI.TRACE,UNIT=2400-3,LABEL=(,NL),DISP=SHR, 
// VOL=SER=GTFXXX 

//SYSUT1 DD DSN=&StWORK»SPACE=(CYL» (3* I) ) *UNIT=SYSDA 
//SYSPRINT DD SYSOUT=A,SPACE=(TRK,(l,l>> 

//SYSIN DD D5N-SYS1.PARMLIBC8A)»DISP=SHR 

./ ENDUP 
/X 

//PARMUP JOB MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=NEM 

//SYSPRINT DD SYSOUT=A 

//SYSUT2 DD DSNAME=SYS1.PARMLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GTFP2,LIST=ALL 

EDIT DDNAME=TAPE,RNIO,USR=CL01,USR=CL02,USRsTPIO,USR=LINE 
END 

./ ENDUP 
/x 


NOTE- Information on this service aid may be found in the OS/VS Services 
Aid SRL GC28-0633. 
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OS/MVS SAMPLES 


&•& s OS/MVS SAMPLES . 


REFERENCES 

0S/VS2 Sysgen Reference 
0S/VS2 MVS Utilities 

0S/VS2 System Programming Library* Service Aids 

0S/VS2 System Programming Library* 

Initialization and Tuning Guide 

0S/VS2 VTAM System Programming Library*VTAM 

0S/VS2 JCL 

Operator's Library* 0S/VS2 ReferenceCJES2) 

OS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 


GC26-3792 

GC26-3902 

GC28-0674 

GC28-0681 

GC28-0688 

GC28-0692 

GC38-0210 

GX27-0034 

SC38-0258 

SC38-0269 


OS/MVS SYSTEM GENERATION MACRO INSTRUCTIONS 


The actual SYSGEN specifications are not included. VTAM must be included 
as part of the sysgen. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x THIS IS A PORTION OF THE STAGE 1 SYSGEN LISTING FOR THE VS/2-R3.7 X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x MULTIPLEXER CHANNEL 10 DEVICES (PARTIAL) X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
IODEVICE UNIT=3215» 3158 KB CONSOLE X 

ADDRESS-009 

13705 IODEVICE UNIT=3705, 

ADAPTER=CA1» 

ADDRESS=019 

IODEVICE UNIT=3215, X 

ADDRESS-01F 
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OS/MVS SAMPLES 

X CHANNEL 1 10 DEVICES * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

PRT3800 IODEVICE UNIT=3800,ADDRESS=(110),FEATURE=CGS2 158,168(610) 

IODEVICE UNIT=2305, X 

M0DEl=2, X 

ADDRESS=1D0 

X CHANNEL 2 10 DEVICES X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

DSK220 IODEVICE UNIT=3330,MODEL=11,ADDRESS=(220,4),OPTCHAN=9, X 

FEATURE=ALTCTRL 

X CHANNEL 3 10 DEVICES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DSK348 IODEVICE UNIT=3330,MODEL=1, X 

0PTCHAN=8,FEATURE=ALTCTRL, X 

ADDRESS-(348,8) 

X CHANNEL 4 10 DEVICES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxrxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
137052 IODEVICE UNIT=3705,ADAPTER=CA1, 3705-1, CA4, X 

ADDRESS=418 

E37052 IODEVICE UNIT=3705,ADAPTER=CA1, 3705-E, CA4, X 

ADDRESS=41A FUTURE 

C37052 IODEVICE UNIT=3705,ADAPTER=CA2, 3705-C, CA2, X 

ADDRESS=41C FUTURE 

J3705 IODEVICE UNIT=3705,ADAPTER=CA1, 3705-J, CA4, X 

ADDRESS=498 

IODEVICE UNIT=3277,M0DEL=2, X 

ADDRESS-(4A0,32), X 

FEATURE^(DOCHAR, X 

SELPEN,EBKY3277,KB78KEY,NUML0CK,AUDALRM) 

IODEVICE UNIT=3277,M0DEL=2, X 

ADDRESS=(4C0,32), X 

FEATURE 2 (DOCHAR, X 

SELPEN,EBKY3277,KB78KEY,NUML0CK,AUDALRM) 

IODEVICE UNIT=3791L,ADDRESS=4E0 3274 

X CHANNEL 5 10 DEVICES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DSK530 IODEVICE UNIT=2314, X 

ADDRESS=(530,8) 

T5808 IODEVICE UNIT=3420,MODEL=8,ADDRESS=(580,6), X 

FEATURES(OPT1600.SHARABLE),OFFLINE=YES 
xxxxxxxx SYSTEM CONSOLES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CONM CONSOLE MCONS=01F,ALTCONS=01A, MASTER CONSOLE UNDER VM X 

ROUTCDE=ALL, NO DEFAULT X 

0LDWT0R=1, OLDWTOR=ALL X 

IOC=YES DEFAULT=NO 

CONI CONSOLE SECONS=01A,ALTCONS=009, 3158 CONSOLE X 

AREA=10, X 
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PFK=12 NO DEFAULT 

C0N4 CONSOLE SECONS=4AO,VALDCMD=(1,2,3), 158 SEC CONS 3270 

ROUTCDE=ALL, 

AREA=10,ALTCONS=4A1,PFK=12 
****** ’MVS/REL3 - CONTROL PROGRAM SPECIFICATION* 

CTRL CTRLPROG 0PTI0NS=(DEVSTAT,RDE,RER,BLDL,CRH),SQA=9,REAL=256, 

TZ=(W,8),ASCII=INCLUDE,ST0RAGE=16777216, 
CSA=3000,VRREGN=512,PAGNUM=(9,9), 

ACRCODE=YES,APFLIB=(SYS1.VTAMLIB»MVSRES,SYS1.VTAMOBJ, 
MVSRES) 

SCHED'JLR SCHEDULR BCLMT=100,PRISUB=JES2, 

SUBSYS=(JES3,ECSS> ECST,JESO,JESP,JESQ,JESR,JES,JEST, 

J ES4, J ES5,J ES6,J ES7, J ES8,J ES9), 

HARDCPY=(SYSLOG,ALL,CMOS), 

DEVPREF=(3330-1,3330,2305-2,2305-1,3350,3340,2314,2400) 

X JES3 GENNED IN FOR SECONDARY SUBSYSTEM SUPPORT 
JES CNS-((009,3215)),LOCLJES=NO 
CHKPT CKPTREST ELIGBLE = (20,100,101,102,103,110,120,140,160,4092) 

EJECT 

DATAMAN DATAMGT ACSMETH=(BTAM,TCAM,ISAM,GAM,VTAM), 

GRAPHCS=(PORRTNS,GSP), 

TABLE=ALL,UCSDFLT=ALL,IND=YES 
TSO TSO LOGTIME=20000 

EDIT EDIT DSTYPE=SYSTEST,BLOCK=800,FORMAT=FIXED,FIXED=(80-80),X 

CONVERT=CAPSONLY 

xxxxx DATASET SPECIFICATIONS xxxxxxxxxxxxxx 


SPACE DATASET BRODCAST,SPACE=(CYL,(1)) 

DATASET CMDLIB,SPACE=(CYL,(3,1,112)) 

DATASET TELCMLIB,SPACE=(CYL,(2,1,84)) 

DATASET VTAMLIB,SPACE=(CYL,(2,1,56)) 

AFFINITY AFF-AFFPGMOO-O,AFF-AFFPGM01-0,AFF-AFFPGM02-0, X 

AFF-AFFPGM03-0, X 

AFF-AFFPGM04-0, X 

AFF-AFFPGM05-0, X 

AFF-AFFPGM06-1, X 

AFF-AFFPGM07-1, X 

AFF-AFFPGM08-1, X 

AFF-AFFPGM09-1, X 

AFF-AFFPGM10-1 


NOTE- Information for preparing the OS/MVS system for VTAM is found in 
OS/MVS System Programming Library? VTAM (GC28-0688), and the OS/MVS 
System Generation Reference (GC26-3792) 
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OS/MVS SAMPLES 


OS/MVS SYSTEM PARAMETER DEFINITIONS 


./ ADD NAME=IEASYS00,LEVEL=00,SOURCE=0,LIST=ALL 
APF=PS, AUTHORIZATION LIST 

APG=07, AUTOMATIC PRIORITY GROUP IS 7 DEFAULT 

BLDLF=00, FIX IEABLD00 TABLE 

CMD=00, SET TOD PROMPT,SDUMP,TRACE ON DEFAULT 

CSA=3644, CONSIDER SETTING TO LIMIT USER REG TO 8 MEG 

DUMP-DASD, PLACE SVC DUMPS ON DASD DEVICES DEFAULT 

FIX=00, FIX MODULES SPECIFIED IN BASE AND TSO LIST 

HARDCPY=(SYSLOG, HARDCOPY LOG IS SYSTEM LOG(SYSLOG) 

ALL, RECORD ALL WTO/WTOR WITH ROUTE CODES 

CMDS), RECORD ALL COMMANDS AND RESPONSES 

IPS=00, SELECT IEAIPS00 INSTALL PERF SPECS FOR SRM 

LNK=PS, SPECIFY LNKLSTOO AS LINK LIST 

LOGCLS=A, WILL NOT BE PRINTED BY DEFAULT 

LOGLMT=999999, MUST BE 6 DIGITS, MAX WTL MESSAGES QUEUED 

MAXUSER=36, (SYS TASKS + INITS + TSOUSERS) < 36 

PAGNUM=(3,2), ALLOW ADDITION OF 3 PAGE D/S & 2 SWAP D/S 

OPI=YdS, ALLOW OPERATOR OVERRIDE TO IEASYS00 

OPT=00, SPECIFY IEAOPTOO (SRM TUNING PARMETERS) 

PAGE=(PAGE.IPOJ210I, PLPA PAGE DATA SET 

PAGE.IP0J2102, COMMON PAGE DATA SET 

PAGE.IPOJ2103,L>, USER(LOCAL) PAGE DATA SET 

REAL S 128, ALLOWS 2 64K JOBS OR 1 128K JOB TO RUN V=R 

RSU=0, NO RECONFIG STORAGE UNITS DEFAULT 

SMF=00, SELECT SMFPRMOO, SMF PARMETERS DEFAULT 

SQA=5, SIZE=(3+3)*64K=384K VIRTUAL STORAGE 

VAL=PS, SELECT VATLSTOO DEFAULT 

VRREGN=I28, DEFAULT REAL-STORAGE REGION SIZE DEFAULT 

WTOBFRS S 250,CVIO, SET NUMBER OF WTO BUFFERS 

WTORPLY=10 SET NUMBER OF WTOR BUFFERS 


/X THIS COMPLETES THE SYSP LIST 

/X 

/X NOTE IS NOTE THAT SCAN OF THE SYSP PARAMETERS ENDS 
/X AT FIRST PARAMETER WITHOUi A COMMA. 

/X WHEN MODIFYING ANY PARAMETER EXCEPT THE LAST SPECIFIED, 

/X INCLUDE THE COMMA. 

/X 

/X NOTE 2s PAGE PARAMETER SPECIFIED AT IPL TIME MERGES WITH IEASYSXX 
/X SEE INIT AND TUNING GUIDE GC28-0755-0 - 

/X IEASYSOO SOURCE OF PAGE PARAMETER 


/X NOTE 3: THE FOLLOWING PARAMETERS HAVE BEEN OMITTED BY CHOICE 


CLPA 

CVIO 

DUPLEX- 


RE-CREATION OF PLPA IS OPERATOR CHOICE 
DO NOT DELETE VIO D/S - CLPA IMPLIES CVIO 
NO DUPLEX D/S - OPTIONAL WITH SU 7 
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MLPA= NO MLPA PARAMETERS 

NUCMAP 

PURGE DO NOT DEMOUNT MSS VOLUMES 

SUAP= NO SWAP DATASET SPECIFIED 

SYSP=00 SPECIFIED BY OPERATOR AT IPL FOR THIS SYSP 

NOT A VALID PARMETER FOR IEASYSXX 
/X THIS IS THE END OF IEASYS00 


./ ADD NAME=IEAFIX00,LEVEL=00,SOURCE=0,LIST=ALL 


SYS1.LPALIB IEAVAR00, 

/X 

6816 RCT 

INIT/TERM 

X/ 

IEWFBOSV, 

/X 

6384 PROGRAM 

FETCH 

X/ 

IEWMSEPT t 

/X 

FETCH ALIAS 

SEE ABOVE 

X/ 

IGC0001F, 

/X 

5072 PURGE(SVC16) 

X/ 

IGC0001G, 

/X 

368 REST0RECSVC17 

X/ 

IGC0003C, 

/X 

2656 10 HALT 


X/ 

IGC0004F, 

/X 

3000 TTIMER 


X/ 

IGC0004G, 

/X 

3000 STIMER 


X/ 

ISTAPC61, 

/X 

ACF/VTAM 



X/ 

ISTAPC62, 

/X 

ACF/VTAM 



X/ 

ISTAPC63, 

/X 

ACF/VTAM 



X/ 

ISTAPC64, 

/X 

ACF/VTAM 



X/ 

ISTAPC66, 

/X 

ACF/VTAM 



X/ 

ISTAPC67, 

/X 

ACF/VTAM 



X/ 

ISTAPC83, 

/X 

ACF/VTAM 



X/ 

ISTAPC64, 

/X 

ACF/VTAM 



X/ 

ISTRACCA, 

/X 

ACF/VTAM 



X/ 

ISTRACIO, 

/X 

ACF/VTAM 



X/ 

ISTRACTB, 

/X 

ACF/VTAM 



X/ 

ISTRAMTR, 

/X 

ACF/VTAM 



X/ 

ICHRRCDE, 

/X 

RACF REL. 

3 


X/ 

ICHRFCOO, 

/X 

RACF REL. 

3 


X/ 

ICHRGLOO, 

/X 

RACF REL. 

3 


X/ 

ICHRGL01, 

/X 

RACF REL. 

3 


X/ 

ICHRGL03 

/X 

RACF REL. 

3 


X/ 


./ ADD NAME=IEAAPFPS> LEVEL = 00»SOURCE=0 > LIST=ALL 
IMS.RESLIB USRLB2, 

IMS.PGMLIB USRLB2, 

SYS!.VTAMLIB IP0R21, 

SYS1.NCPLIB USRLB2, 

SYS1.LINKLIB2 USRLB1, 

SYS2.LINKLIB USRLB1, 

SYS1.OLTLIB USRLB1» 

SYS1.CDSLIB USRLB1» 

LAST.ENTRY DUMMY 
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/ ADD NAME=LNKLSTPS,LEVEL 
SYS1.LINKLIB,SYS1.TSOLIB, 

=00,SOURCE=0,LIST=ALL 
TSO PROGRAM PRODUCTS 

xxxxxxxxx 

SYS1.CMDLIB, 

TSO COMMAND LIB 

xxxxxxxxxxxxxx 

SYSI.LINKLIB2, 

USER UTILITIES 

xxxxxxxxxxx 

IMS.RESLIB, 

IMS LIBRARY 

xxxxxxxxxxxxxxxxxx 

SYS1.TCAMLIB, 

TCAM PROGRAMS 

xxxxxxxxxxxxxxxx 

NCP6.SSPLIB, 

NCP6 UTILITIES 

xxxxxxxxxxxxxxxx 

SYS2.LINKLIB, 

USER LINK LIB 

xxxxxxxxxxxxxxxx 

SYS1.PPLINK, 

P. P. LOAD LIB 

xxxxxxxxxxxxxxx 

SYS1.COBLIB, 

COBOL LIBRARY 

xxxxxxxxxxxxxxxx 

SSS4.LINKLIB, 

PVS AND SSS PROGRAMS 

xxxxxxxxx 

IP021.LINKLIB 

IPO PROGRAMS 

xxxxxxxxxxxxxxxxx 


./ ADD NAME=VATLSTPS 



USRLB1,I,0,3330-1 

»N 

LIBRARY PACK 


USRLB2,1,0,3330-1 

,N 

LIBRARY PACK 


DLIB21,1,2,3330 

,N 

MVS DLIB FOR 

IP021 

IP0R21,1,2,3330 

, N 

IPO REL. 2.1 

SYSRES 

IP0J21,1,2,3330 

,N 

IPO REL. 2.1 

CATALOG SPOOL PAGING 

NCPLIB,1,0,3340 

,N 

NCP6 LIBRARY 



./ ADD NAME=TSOKEYPS 
USERMAX=30, 

RECONLIM=10, 

BUFRSIZE=512, 

SCRSIZE=1920 USED FOR 3277'S ONLY 


X 

X 

X 


NOTE- Information for preparing the OS/MVS system parameters is found in 
OS/MVS Sysgen Reference CGC26-3792) 
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OS/MVS JES2 PARAMETER DEFINITIONS(VTAM OR ACF/VTAM) 

./ ADD NAME=SNAPARM 

X-x 

X JES2PARM X 

x-x 

x SU 25 JES 4.1 x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X RJE RELATED PARAMETERS X 

X X 

L060N1 APPLID=JES2 APPL ID TO VTAM X 

&NUMLNES=9 MAX NUMBER OF RJE LINES INCLUDING SNA LINES X 

&NUMRJE=110 MAX NUMBER OF RJE DEFINITIONS ALLOWED X 

&NUMTPBF=20 NUMBER OF TP BUFFERS GENERATED FOR RJES X 

&TPBFSIZ=800 TP BUFFER SIZE X 

&MAXSESS=25 MAX NUMBER OF VTAM SESSIONS=LINES AT 5 LU EACX 

&WAITIME=15 15 SECONDS FOR RMT CMDLFROM 1 DEFAULT) X 

COMPACT=40,15,A,C,D,E,H,I,L,N,0,R,S,T,U,40,0, HRS15X C 

B,F,G,J,K,M,P,Q,V,W,X,Y,Z,1,2,3 HRS16X 

COMPACT=41,16,0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F HRS16X 

8NUMTPBF=8 NUMBER OF BUFFERS GENERATED FOR RJE X 

&TPIDCT=66 NUMBER OF LINES ON HEADER PAGE REMOTE PRINTRX 

LINE1 UNIT=SNA X 

LINE2 UNIT=SNA X 

LINE3 UNIT=SNA X 

LINE4 UNIT=SNA x 

LINE5 UNIT=SNA X 

LINE6 UNIT=SNA x 

xxxxxxxxxx RMT1 IS A 3777 

RMT1 LUTYPE1,BUFSIZE=512,COMP,CMPCT * NUMPR = 1» X 

NUMRD=1,SETUPMSG X 

R1.PR1 PRWIDTH=132» FCBLOAD X 

R1.RD1 PUDEST=1»PULCL X 

xxxxxxxxxx RMT2 IS A 3777 

RMT2 LUTYPE1»BUFSIZE=512»COMP>CMPCT»NUMPR=1»LUNAME S LU3777R» x 

NUMRD=1,SETUPMSG X 

R2.PR1 PRWIDTH=132,FCBLOAD X 

R2.RD1 PUDEST=1,PULCL X 

xxxxxxxxx RMT90 is a 3790 

RMT90 LUTYPE1,BUFSIZE=256,COMP»CMPCT>CONSOLE,NUMPR=3» C 

SETUPHDR 

R90.PR1 DRAIN,PRWIDTH=120 

R90.PR2 DRAIN,CLASS=X 

R90.PR3 PRWIDTH=132 

X++++++ RMT95 = ID ASSIGNED TO 3776 
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RMT95 LUTYPE1»BUFSIZE=256,COMP,NUMPR = 1» C 

SETUPMSG 

R95.PR1 PRWIDTH=132» FCBLOAD 

x 


x 

x 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


RMT LINE DEFAULTS - CODEA,LOWSPEED,IFACEA,ADISCON,EBCDIC,HDUPLEX 

RMT NUM DEFAULTS - BLOCKED,NOMRF,NOTRANSP,HARDWARE,NOTABS,NUMPR=1, 

NUMRD=1,NUMPU=0,VARIABLE,NOBUFEX,NOABUFEX, 
NOCOMP,NOCON,DISCINTV=0,PASSWORD 3 ,LINE= 

RMT PRT DEFAULTS - OPERATOR,CLASS=AJ,START,NOFCBLOD,SEP,SUSPEND, 

PRWIDTH=120,FORMS=STD.,UCS=,FCB= 

RMT PUN DEFAULTS - OPERATOR,CLASS=BK,START,SEP,SUSPEND,FORMS=STD. 

RMT RDR DEFAULTS - CLASS=A,MSGCLASS=A,START,NOHOLD,PRDEST 3 , 

PRI0LIM=15,PRI0INC=,PUDEST= 


OS/VS START PARAMETER DEFINITION (VTAM AND ACF/VTAM) 


./ ADD NAME=ATCSTR00,LEVEL=00,SOURCE=0,LIST 3 ALL 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X MINIMUM STARTUP - SHOULD BE USED FOR OS/VS VTAM AND ACF/VTAM x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

TRACE,TYPE=SM$,ID=VTAMBUF, 

MAXSUBA=31, 

SSCPID=01, 

NETSOL=NO 
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OS/MVS VTAM START PARAMETER DEFINITION (TEST) 

./ ADD NAME=ATCSTRPS,LEVEL=00,SOURCE=0,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X ATCSTROO IS REQUIRED X 

X X 

X VTAM START PARAMETERS - DEFAULT VALUES X 

X NOTE: THE IOBUF (BSZ) PARAMETER MUST EQUAL THE UNITSZ VALUE X 

X IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

X BUFFER POOL START PARAMETERS IS EITHER X 

X XXBUF=(BNO»BSZ> BTHZ) AS INDICATED BELOW. X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MAXSUBA=31, X 

NOPROMPT, X 

CONFIG=PS, X 

SSCPID=01, X 

NETSOL=NO, X 

SFBUF=(271»,271), X 

LFBUF=(40,,32), X 

LPBUF=(52,>32)» X 

NPBUF=(153,,145), X 

CRPLBUF=C171,,162), X 

IOBUF-(102,156,80), X 

APBUF=(154,,146), X 

SPBUF=(15,,15), X 

UECBUF=(269,,256), X 

WPBUF=(132»»132), X 

PPBUF=(135,156,128) 

./ ENDUP 

/X 

// 

NOTE- Details for coding and filing start parameters are found in the 
OS/MVS System Programming Library: VTAM (GC28-0688). 


G320-6028 (2/79) 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 5-59 



OS/MVS SAMPLES 


OS/MVS ACF/VTAM START PARAMETER DEFINITION (TEST) 

ADD NAME=ATCSTRAC,LEVEL=00,SOURCE=0» LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X ATCSTROO IS REQUIRED OR THIS DEFINITION CAN REPLACE IT. X 

X NOTES THE IOBUF (BUFSIZE) PARAMETER MUST EQUAL THE UNITSZ VALUE X 

X IN THE NCP HOST MACRO DEFINITION. THE FORMAT OF THE X 

X BUFFER POOL START PARAMETERS IS EITHER X 

X XXBUF=(BASENO,BUFSIZE,SLOWPT,XPANNO,XPANPT) X 

x OR XXBUF=VBSZ AS INDICATED BELOW. X 

x XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE 1 PAGE OF X 

X BUFFERS SINCE THEY ARE ALWAYS ACQUIRED IN PAGE x 

X INCREMENTS. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
TRACE,TYPE=SMS,ID=VTAMBUF, X 

TNSTAT,CNSL,TIME=10, X 

MAXSUBA=31,NOPROMPT,CONFIG=AC,SSCPID=01, X 

H0STSA=13, X 

MAXAPPL=50, X 

VTAMEAS=150, X 

NETSOL=NO, X 

SFBUF=(60,,2,,01,3), xxx XPANNO OF 1 WILL CAUSE ACF/VTAM TO ACQUIRE X 

LFBUF=C37,,2,,01,3), 1 PAGE OF BUFFERS SINCE THEY ARE ALWAYS X 

LPBUF=(32,,1,,01,2), ACQUIRED IN PAGE INCREMENTS XXX X 

NF3Ur=(23>,2,,01,3), X 

CRPLBUF=(40,,2,,01,3), X 

IOBUF=(60,152,4,,01,26), 

NOTE - The difference between SLOWPT and XPANPT must be greater than 
the largest MAXBFRU defined in any NCP or Local definition. 
APBUF=(66,,2,,01,3), 

SPBUF=(66,,2,,01,3, 


NOTEs For Networks with greater than 100 BSC 3277's, 

expansion of SPBUF is not recommended. BASENO must be larger 
that the number of BASIC sessions if no expansion, 
or SPBUF=(100,,10), 

UECBUF=(39,,2,,01,3), 

WPBUF=(27,,2,,01,3), 

PPBUF=(29,152>2,,01,3) 

./ ENDUP 


NOTE- Details for coding and filing start parameters are found in the 
ACF/VTAM System Programmers Guide: VTAM (SC38-0258). 
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OS/MVS VTAM APPLICATION DEFINITION EXAMPLE 

./ ADD NAME S APPCON01,LEVEL=00,SOURCE = 0,LIST-ALL 

./ NUMBER NEW1=10,INCR=10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X APPLICATION PROGRAM DEFINITION FOR VTAM x 

X WHERE THE OPERANDS AVAILABLE ARE: X 

X PRTCT=PASSWORD, PASSWORD MUST ALSO BE DEFINED IN X 

X APPLICATION PROGRAM 'ACB». x 

X BUFFACT=N|1, APPLIES ONLY TO BASIC NEWE. X 

X AUTH=(ACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE X 

X THE OPNDST MACRO WITH THE X 

X ACQUIRE OPTION. X 

X BLOCK I NOBLOCK, NOT USED WITH SDLC OR 3270. X 

X PASS|NOPASS, ALLOWS USE OF CLSDST MACRO X 

x WITH THE PASS OPTION. X 

X TCAM) ALLOWS PATH TO TCAM 

X x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SAMP1 

APPL 

AUTH=(ACQ) 

DBDCCICS 

APPL 

AUTH=(ACQ) 

BATCH 

APPL 

AUTH=(ACQ) 

INQ3790 

APPL 

AUTH=CNOACQ) 

INQALL 

APPL 

PRTCT=OKAYOKAY,AUTH=(ACQ) 

HOSTPGM1 

APPL 

AUTH=(NOACQ) 

INQ 

APPL 

AUTH=(ACQ,BLOCK) 

TEST1 

APPL 

AUTH=(ACQ,PPO) 

BASIC2 

APPL 

AUTH=(ACQ,PASS,SPO,BLOCK) 

IEDQTCAM 

APPL 

AUTH=(ACQ,TCAM,BLOCK),PRTCT=PASSWORD 

TCAM 

APPL 

AUTH=(ACQ,TCAM,BLOCK),PRTCT=PASSITON 

SYSSSS 

APPL 

AUTH=(ACQ) 

./ 

ENDUP 



/x 


NOTE- Defining and filing application parameters is described in 
Defining VTAM Application Programs of the OS/MVS Systems Programming 
Library: VTAMCGC28-0688). 
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OS/MVS ACF/VTAM APPLICATION DEFINITION EXAMPLE 

./ ADD NAME = APPCONAC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X APPLICATION PROGRAM DEFINITION FOR VTAM X 

X WHERE THE OPERANDS AVAILABLE ARE 5 X 

X PRTCT-PASSWORD, PASSWORD MUST ALSO BE DEFINED IN X 

X APPLICATION PROGRAM »ACB». X 

X BUFFACT=N|1, APPLIES ONLY TO BASIC SESSIONS. X 

X AUTH-CACQ|NOACQ, ALLOWS APPLICATION PROGRAM TO USE X 

X THE OPNDST MACRO WITH THE X 

X ACQUIRE OPTION. x 

X BLOCK!NOBLOCK, NOT USED WITH SDLC OR 3270. X 

X PASS I NOPASS, ALLOWS USE OF CLSDST MACRO X 

X WITH THE PASS OPTION. X 

X TCAM) ALLOWS PATH TO TCAM 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
IMS APPL AUTH=ACQ 

VAPPL APPL AUTH=(ACQ,PPO) 

SYSSSS APPL AUTH=ACQ 
BTS3770 APPL AUTH=ACQ 
DSPRINT APPL AUTH=ACQ 
IKJACCNT APPL AUTH=ACQ 
JES2 APPL AUTH=ACQ 
VTAMWHO APPL 

./ ADD NAME=TSOAPAC» LEVEL = 00,S0URCE = 0,LIST = ALL 

./ NUMBER NEW1=10,INCR=10 

TSO APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE)»EAS = 10 

TSOOOOl APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00002 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00003 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00004 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00005 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00006 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00007 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00008 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00009 APPL AUTH=(NOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
TS00010 APPL AUTH*CNOBLOCK,PASS,NOPO,TSO,NVPACE),EAS=1 
./ ENDUP 

/X 


NOTE- Defining and filing application parameters is described in 
Defining VTAM Application Programs of the ACF/VTAM Systems Programmers 
Guide 5 (SC38-0258). 
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OS/MVS NCP DEFINITION EXAMPLE 


./ ADD NAME=NCPRAL*LEVEL=00,SOURCE=0,LIST=ALL 

./ NUMBER NEW1=10,INCR=10 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

X 

X 


./ 

/X 


SOURCE FOR NCP4.1 OS/MVS VTAM 


X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


ENDUP 


NOTE- The OS/MVS System Programming Library* VTAM end the NCP/VTAM 
generation guide are required. The HOST macro definition must be 
consistent with the VTAM start parameters. 

The source from the NCP generation should be used here after removing 
the assembler control cards. Mhen testing the NCP the first time* all 
the PU's should contain the VTAM parameter *ISTATUS=INACTIVE*. After 
loading the NCP they should be varied 'active* individually. After a PU 
and it's resources are operational* the member can be updated to change 
the ISTATUS to 'ACTIVE'. 
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OS/MVS VTAM CONFIGURATION DEFINITION 


./ ADD NAME=ATCCON0O,LEVEL=00,SOURCE=0,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXftXXXXXXXXXXXXXX 

x x 

X START-UP CONFIGURATION, NO NCP * 

X X 

XXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

APPCONOl,LOCCONOl 

./ ADD LIST=ALL,SSI=20001103,NAME=ATCCONPS 

APPCONOl,LOCCONOl,NCPRAL 
./ ENDUP 

/x 
// 


NOTE- If 00 is activated, it will be necessary to vary the NCP 'active' 
via the operator. To autoload the NCP, LIST=RA should be specified at 
VTAM start time. 


OS/MVS ACF/VTAM CONFIGURATION DEFINITION 


./ ADD NAME=ATCCONOO,LEVEL=00,SOURCE=0,LIST=ALL 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X START-UP CONFIGURATION, NO NCP X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

L0C3272»TS0APAC 

./ ADD NAME=ATCC0NAC 

L0C3272,SMITCHAC,NCPACF,APPCONAC,TSOAPAC 

./ ENDUP 

/X , ... 

// 
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OS/MVS EXAMPLE OF LOGON TABLE GENERATION 


//LOGASM JOB ’LOGTAB ASSEMBLY*,MSGLEVEL=1»REGION=200K 
//STEP1 EXEC ASMFCL 
//ASM.SYSPUNCH DD DUMMY 
//ASM.SYSIN DD X 
Source deck 

//LKED.SYSLMOD DD DSN=SYS1.LPALIB(Table Name),DISP=SHR 


NOTE- The interpret table is required in order to allow non-SDLC 
terminals to ’logon* to application programs via the Network Solicitor. 
Terminal-Initiated Logons in OS/MVS System Programmers Library* VTAM 
describes the generation of the interpret table. 


OS/MVS MODETAB ASSEMBLY 


//MODETAB JOB ’MODETAB ASSEMBLY’,MSGLEVEL=1,CLASSIC 

//STEP1 EXEC ASMFCL 

//ASM.SYSPUNCH DD DUMMY 

//ASM.SYSIN DD X 

Source Deck 

//LKED.SYSLMOD DD DSN-SYS1.LPALIBCModetab Name),DISP=SHR 
/X 

/x 


NOTE- This modetab is a subset of the IBM supplied Logon Mode Table. 
Adding it this way simplifies operator logon from the 3270 SDLC unit. 
Terminal-Initiated Logons in OS/MVS System Programmers Library* VTAM 
Chapter 4 describes Logon Mode Tables. If the terminal is to be acquired 
by an application* this modetab is required. 
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OS/MVS EXAMPLE OF START PROCEDURE 


START PROCEDURE FOR VTAM2 


./ ADD LIST=ALL,NAME = NET»LEVEL = 01»SOURCE=0 

./ NUMBER NEM1=10,INCR-10 

//.NET EXEC PGM=ISTINM01,REGION=500K 
//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=SYS1.VTAMLST,DISP=NEW 

//VTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 

//INITEST DD DSN=SYS1.LINKLIB,DISP=SHR 

//OLTCDSDD DD DSN=OLTLIB,DISP=SHR 

//SYSMSYM DD DSN=CDSLIB,DISP=SHR 

//NCPLOAD DD DSN=SYS1.NCPLOAD,DISP=SHR 

//NCPDUMP DD DSN=NCPDUMP,DISP=NEW 

//SYSABEND DD SYSOUT=A 

./ ENDUP 
.sp 2 

.uc Start Procedure for ACF/VTAM 
.sp 2 

./ ADD LIST=ALL,NAME=NET,LEVEL=01,SOURCE=0 

./ NUMBER NEW1=10,INCR=10 

//NET EXEC PGM=ISTINM01,REGION=1536K,DPRTY=C15,15),PERFORM=8 

//VTAMLIB DD DSN=SYS1.VTAMLIB,DISP=SHR 

//VTAMLST DD DSN=VTAM.LIST.SOURCE,DISP=SHR 

//NCPLIB DD DSN=SYS2.NCPLIB,DISP=SHR 

//VTAMOBJ DD DSN=SYS1.VTAMOBJ,DISP=SHR 

//NCPDUMP DD DSN=SYS1.NCPDUMP,DISP=SHR 

//OLTCDSDD DD DSN=SYS1.0LTLIB,DISP=SHR 

//SYMSYM DD DSN=SYS1.CDSLIB,DISP=SHR 

//SYSUDUMP DD SYS0UT=A Used when 2 NET,CANCEL executed. 

//INITEST DD DSN=NCP6.SSPLIB,DISP=SHR 

./ ENDUP 
// 


NOTE- The DD cards for data sets OLTLIB and CDSLIB should be omitted 
unless the Customer Engineer has prepared these data sets. The system 
can be installed without these data sets but they must be installed 
before TOLTEP can be used. 
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5.5 : OS/VS SAMPLES ( COMMON CODE ) 


The samples contained here are for either a VS1 or VS2 System. 

BI£ESItt£ES 


IBM 3704 And 3705 Communications Controllers 

Network Control Program/VS Generation And Utilities 
Guide And Reference Manual (for OS/VS And DOS/VS 

VTAM Users) GC30-3008 

IBM 3705 Advanced Communications Function for 

Network Control Program/VS Generation And Utilities 

Guide And Reference Manual SC30-3116 


0S/VS1 Service Aids 

0S/VS1 Access Methods Services 

0S/VS1 VTAM System Programmer's Guide 

0S/V51 JCL Reference 

OS/VS VTAM Reference Summary 


GC28-0665 

GC26-3840 

GC27-6996 

GT28-0618 

GX27-0034 


ACF/VTAM System Programmers Guide 
ACF/VTAM Installation Guide 
ACF/VTAM Reference Summary 


SC38-0258 

SC38-0269 

SX27-3021 


0S/VS2 SVS VTAM System Programmer's Guide 
0S/VS2 MVS Utilities 

0S/VS2 System Programming Library' Service Aids 
0S/VS2 JCL 


GC27-0049 

GC26-3902 

GC28-0674 

GC28-0692 


OS/VS TCAM System Programmer's Guide 
OS/VS TCAM Installation and Migration Guide 
OS/VS TCAM Program Reference Summary 
ACF/TCAM System Programmer's Guide 
ACF/TCAM Installation and Migration Guide 
ACF/TCAM Program Reference Summary 


GC30-2051 

GC30-3039 

GY30-1024 

SC30-3117 

SC30-3121 

LY30-3037 
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VTAM FILE ALLOCATION SAMPLE FOR OS/VS1 


//ALLOC JOB MSGLEVEL=(1,1) 

//ALLOC EXEC PGM=IEFBR14 

//X THIS STEP WILL ALLOCATE THE NECESSARY VTAM DATA SETS. 

//DD i i)D UNIT=SYSDA,VOL=SER=SNA001,DISP=(,CATLG),SPACE=(CYL,(5,1,10)), 

// DCB=(LRECL =80,RECFM=FB,BLKSIZE=800),DSN=SYS1.VTAMLST 

//DD2 DD UNIT=SYSDA,VOL=SER=SNA001,DISP=(,CATLG),SPACE=(CYL,(2,1,10)), 

// DCB=(LRECL=3152»RECFM=F,BLKSIZE=3152)»DSN=SYS1.VTAMOBJ 

//DD3 DD UNIT=SYSDA,VOL =SER=SNA0 01,DISP=(,CATLG),SPACE=(CYL,(1)), 

// DSN=NCPDUMP 


VSAM DATA SET ALLOCATION FOR VTAM 


//VSAMCAT JOB CLASS=A 
// EXEC PGM=IDCAMS 

//TARGTVOL DD DISP=OLD,VOL=SER=SNAOOi,UNIT=3330,DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD X 

DEFINE UCAT(NAME(USRVCAT) FILE(TARGTVOL) VOL(SNAOOl) CYL(2,1) - 
T0(99999)) 

/X 

//VSAMALC JOB CLASS=a 
//JOBCAT DD DISP=OLD,DSN=USRVCAT 
// EXEC PGM=IDCAmS 

//FSPACE1 DD DISP=OLD,UNIT=3330,VOL=SER=SNA001 
//SYSPRINT DD SYS0UT=A 
//SYSIN DD X 

DEFINE SPACE(FILE(FSPACE1) VOL(SNAOOl) CYL (50,5)) 

DEFINE CLUSTER (NAME(LRNCKPT) - 
VOL(SNAOOl) - 
KEYS(2,0) - 
TRACKS(2) - 
RECSZ(10,10) - 
SHR(4,4) - 
FREESPACE(D) 

DEFINE CLUSTER (NAME(NCPOOl) - 
KEYS(4,0) - 
VOL(SNAOOl) - 
TRACKS(2) - 
FSPC(l) - 
SHR(4,4) - 
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RECSZ(24>24)) 

DEFINE CLUSTER (NAME(LOCOOl) - 
KEYS(4»0) - 
VOL(SNAOOl) - 
TRACKSC2) - 
FSPC(l) - 
SHR(4/4) - 
RECSZ(24,24)) 

DEFINE CLUSTER (NAME(SWTOOl) - 
KEYS(4* 0) - 
VOLCSNAOOl) - 
TRACKSC2) - 
FSPC(l) - 
SHR(4,4) - 
RECSZ(24r24)) 


NOTES- Apendix G of the OS/VS1 VTAM System Programmer's Guide should be 
referenced. (VTAM Level 2 only). 
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NCP FILE ALLOCATION AND INSTALLATION SAMPLE FOR OS/VS (2314) 


The following sample is for NCP/VS Release 5.0. 


//ALLOC JOB MSGLEVEL=(1,1) 

//ALLOC EXEC PGM=IEFBR14 

//X THIS STEP MILL ALLOCATE THE NECESSARY NCP DATA SETS. 

//DD1 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL,(37,4,11)), 
// DSN=SYS1.GEN3705,DCB=(LRECL=80,RECFM=FB,BLKSI2E=3520) 

//DD2 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL,(64,5,36)), 
// DSN=SYS1.MAC3705,DCB=(LRECL =80,RECFM=FB,BLKSIZE=3520) 

//DD3 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL,(8,2,30)), 

// DCB=(LRECL=80,RECFM=FB,BLKSIZE=40 0),DSN=SYS1.OBJ37 05 

//DD4 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL,(2,1,10)), 

// DCB=(LRECL =80,RECFM=FB,BLKSIZE=400),DSN=SYS1.NCPOBJ 

//DD5 DD UNIT=2314,VOL=SER=NCPR50,DISP=(,CATLG),SPACE=(CYL,(5,2,10)), 

// DSN=SYS1.NCPLOAD1 

//STA EXEC PGM=IEHMOVE 

//X THIS STEP MILL COPY THE DATA FROM THE TAPE TO THE DISK 


//SYSPRINT DD 

SYSOUT=A 


//SYSUT1 

DD 

UNIT=2314,SPACE=(CYL,(5,5)) 


//TAPEIN 

// 

DD 

UNIT=2400,VOL=SER=DISTTP,LABEL=(,NL), 
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),DISP=(OLD,PASS) 


//DISKOUT DD 

UNIT=2314,VOL=SER=NCPR50,DISP=OLD 


//SYSIN 

DD 

x 


SSP 

COPY 

PDS=SYS1.SSPLIB,FROM=2400=(DISTTP,1), 

TO=2314=NCPR50,FROMDD=TAPEIN 

X 

NCPMAC1 

COPY 

PDS=SYS1.GEN3705,FROM=2400=(DISTTP,2), 
FR0MDD=TAPEIN,TO=2314=NCPR50 

X 

NCPMAC2 

COPY 

PDS=SYS1.MAC3705,FR0M=240 0 = (DISTTP,3), 
FROMDD=TAPEIN,TO=2314=NCPR50 

X 

NCPOBJ 

COPY 

PDS=SYS1.OBJ3705,FR0M=2400=(DISTTP,4), 
FROMDD=TAPEIN,TO=2314=NCPR50 

X 


NOTES- This job stream allocates space for the data sets required for an 
NCP installation and generation. The PDS SYS1.SSPLIB must be copied to 
the SYS1.LINKLIB as noted in the next sample. The storage requirements 
may vary between release levels of NCP/VS. The Program Directories 
shipped with the NCP tape should always be consulted. 
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NCP INSTALLATION CONTINUED* UPDATE LINKLIST 


./ ADD NAME=LNKLSTxx 

SYS1.LINKLIB* 
SYS1.LINKLIB2, 
IMS.RESLIB, 
SYS1.SSPLIB 


SYSTEM LINKLIB 
USER UTILITIES 
IMS LIBRARY 
NCP UTILITIES 


xxxxxxxxx 

xxxxxxxxxxx 

xxxxxxxxxxxxxxxxxx 


NOTES- This stage is necessary. VTAM expects to find the 370x loader in 
the SYS1.LINKLIB and VTAM Mill be unable to load the 3705 if it can not 
find the loader. NCP utilities may be placed in SYS1.LINKLIB. 
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NCP JOB CONTROL FOR STAGE 1 - OS/VS 


//SCRNCP4 JOB MSGLEVEL=(1,1) 

// EXEC PGM=IEHPROGM 

//SYSPRINT DD SYSOUT=A 

//DD3 DD UNIT=2314*VOL=SER=NCPR50,DISP=OLD 

//SYSIN DD x 

SCRATCH DSNAME=NCPSTG1,VOL=2314=NCPR50*PURGE 
/x 

//STAGE1 EXEC PGM=CWAXOO,REGION=320K 
//SYSLIB DD DSN s SYSl.GEN3705*DISP s SHR 

//OBJ1 DD UNIT=2314*VOL=SER=NCPR50* DISP=(*CATLG)*SPACE=(CYL»(2*1*10))* 
// DCB=< LRECL=80,RECFM=FB* BLKSIZE=40 0),DSN=SYS1.NCPOBJ1 

//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(800,800)),DCB=(OPTCD=C) 

//SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(800,800)),DCB=(OPTCD=C) 

//SYSUT3 DD UNIT=SYSDA,SPACE=(1700*(800,800)),DCB=(OPTCD=C) 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD DSN=NCPSTG1,VOL=SER=NCPR50,DISP=(,KEEP), 

// UNIT=2314,SPACE=(CYL,(2,1)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800) 
//SYSIN DD X 
//SYSIN DD X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X X 

X SOURCE FOR NCP3 OS VTAM X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

/X 

// 


NOTES- The JCL sample punches the Stage 1 ouput to a sequential data 
set. This sample allows Stage 2 to be started by reading from the file. 
The listing from Stage 1 must be examined for defaults and MNOTES. The 
punched output from this stage should allow an error free NCP 
generation. There may be unresolved EXTRNs in the link edit stage. The 
letter to users* that comes with the NCP installation materials* lists 
these unresolved EXTRNs. Normally these unresolved items can be ignored. 
Unlike DOS/VS* there are no additional steps after the link edit stage. 
The NCP load is ready to be used as soon as the last step is completed. 
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OS/VS NCP LOAD SAMPLE 


//LOAD JOB MSGLEVEL=(1,1) 

//X THIS ROUTINE LOADS THE LOCAL 3705 

// EXEC PGM=IFLOADRN 

//SYSPRINT DD SYS0UT=A 

//SYSUT1 DD DSN=NCP.NCPSN2,DISP=SHR 

//X NEXT STATEMENT SPECIFIES INITIAL TEST LIBRARY 

//SYSUT3 DD DSN=SYS1.LINKLIB,DISP=SHR 

//CUNAME DD UNIT=0BF 

//SYSIN DD X 

LOAD LOADMOD=NCPSN2,3705=CUNAME,DIAG=Y8 
/X 
// 

NOTES - Options fop this routine are covered in Chapter 7 of the NCP 
Generation manual* GC30-3008. This routine maybe used to cheek the NCP 
with initial test* prior to loading the 370x using VTAM. If the NCP is 
defined with 'Automatic Network Shutdown'* the NCP will go back to the 
load state after the 'TIMEOUT' value specified in the NCP 'HOST' 
parameter has expired. 


SAMPLE JCL TO DUMP AND PRINT NCP ON OS/VS 


//DUMP JOB MSGLEVEL=(1,1) 

//X THIS ROUTINE DUMPS AND PRINTS THE LOCAL 3705 STORAGE CONTENTS 

// EXEC PGM=IFLREAD 

//SYSPRINT DD SYSOUT=A 

//x SYSUT1 SPECIFIES THE 3705 ADDRESS 

//SYSUT1 DD UNIT=0BF 

//X SYSUT2 SPECIFIES THE TEMORARY DASD WORK DATA SET 

//SYSUT2 DD UNIT=SYSDA,DISP=NEW, X 

// SPACE=(512*(513)* *C0NTIG)*DCB=(DSORG=DA) 

//SYSIN DD X 

DUMP FROMADDR-200 *BUF=Y*F0RMAT=Y 
/x 
// 

NOTES- Options for this procedure are covered in Chapter 8 of the NCP 
Generation Manual* GC30-3008. 
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SAMPLE JCL FOR STARTING AND STOPPING VTAM TRACE 


//PROCUP JOB 'UPDATE PROCLIB',MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=MOD 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=GOTRACE,LIST=ALL 
//TRACE PROC 

// MODIFY NET,TRACE,TYPE=I0,ID=NCPSN2 
// MODIFY NET,TRACE,TYPE=BUF,ID=NCPSN2 
// MODIFY NET,TRACE,TYPE=I0,ID=CL3790 
// MODIFY NET,TRACE,TYPE=BUF,ID=CL3790 
// MODIFY NET,TRACE,TYPE=IO,ID=INBATCHl 
// MODIFY NET,TRACE,TYPE=BUF,ID=INBATCH1 
// MODIFY NET,TRACE,TYPEsI0,ID=INQDEM02 
// MODIFY NET,TRACE,TYPE=BUF,ID=INQDEM02 
// VARY NET,ACT,ID=CL3790 
//STEP1 EXEC PGM=IEFBR14 
//X OPERATOR COMMANDS TO SET UP FOR TRACE 
./ ADD NAME=NOTRACE,LIST=ALL 
//NOTRACE PROC 

// MODIFY NET,NOTRACE,TYPE=I0,ID=NCPSN2 
// MODIFY NET,NOTRACE,TYPE=BUF,ID=NCPSN2 
// MODIFY NET,NOTRACE,TYPE=IO,ID=CL3790 
// MODIFY NET,NOTRACE,TYPE=BUF,ID=CL3790 
// MODIFY NET,NOTRACE,TYPE=IO,ID=INBATCHl 
// MODIFY NET,NOTRACE,TYPE=BUF,ID=INBATCH1 
// MODIFY NET,NOTRACE,TYPE=I0,ID=INQDEM02 
// MODIFY NET,NOTRACE,TYPE=BUF,ID=INQDEM02 
//X OPERATOR COMMANDS TO STOP VTAM TRACE 
//STEP1 EXEC PGM=IEFBR14 
./ ENDUP 
/X 

NOTES- This procedure allows an operator to execute a list of operator 
commands. It reduces operator error and insures that trace is started or 
stopped on specified nodes. The same operation can be accomplished by 
entering the commands through the card reader. 
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SAMPLE JCL FOR PRINTING TCAM TRACE RECORDS 


//PROCUP JOB ’UPDATE PROCLIB',MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE,PARM=MOD 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=TRACES,LIST=ALL 

//PIU EXEC PGM=IEDQXB,PARM=’PIUT' 

//SYSUT1 DD DSN=TCAM.COMWRITE,DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(5,1)) 

//BUFF EXEC PGM=IEDQXB,PARM=’BUFF’ 

//SYSUT1 DD DSN=TCAM.COMWRITE,DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(b,1)) 

//LINE EXEC PGM=IEDQXB,PARM='LINT,LIN3' 

//SYSUT1 DD DSN=TCAM.COMWRITE,DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(5,1)) 

//IOTR EXEC PGM=IEDQXB,PARM='IOTR * 

//SYSUT1 DD DSN=TCAM. COMWRT.TE, DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(5,1)) 

//STCB EXEC PGM=IEDQXB,PARM =, STCB' 

//SYSUT1 DD DSN=TCAM.COMWRITE,DISP=OLD 
//SYSPRINT DD SYSOUT=R,SPACE=(CYL,(5,1)) 

./ ENDUP 
/X 
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SAMPLE JCL FOR RUNNING TCAM 

//PROCUP JOB 'UPDATE PROCLIB',MSGLEVEL=1,REGION=100K 
// EXEC PGM=IEBUPDTE*PARM=MOD 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=SHR 

//SYSIN DD DATA 

./ ADD NAME=TCAM,LIST=ALL 


//SCRQ 

EXEC 

PGM=IEFBR14 

//REQUEUE 

DD 

DSN=TCAM.REQUEUE,DISP=(OLD,DELETE) 

//FORMATQ 

EXEC 

PGMsIEDQXA 

//IEDQDATA 

// 

DD 

DSN=TCAM.REQUEUE,DISP=(,CATLG),DCB=KEYLEN=156, 
VOL=SER=SCLIB1,UNIT=3330-1,SPACE=(CYL,(5,5),,CONTIG) 

//ACFTCAM 

EXEC 

PGM=IEDQTCAM,TIME=1440,DPRTY=(11,10),REGION=6 0 OK 

//STEPLIB 

DD 

DSN=SYS2.NCPLIB,DISP=SHR 

//REQUEUE 

DD 

DSN=TCAM.REQUEUE,DISP=SHR 

//COMWRITE 

DD 

DSN=TCAM.COMWRITE,DISP=SHR 

//NCPDUMP 

DD 

DSN=TCAM.NCPDUMP,DISP=SHR 

//DDIPL 

DD 

DSN=SYS2.NCPLIB»DISP=SHR 

//NCP 

DD 

UNIT=019,DCB=IPLTXID=NCPACFI 

//DD3270L 

DD 

UNIT=4C8 

// 

DD 

UNIT=4C9 

//QOPCTLI 

DD 

QNAME=AOPCTLI 

//QOPCTLO 

DD 

QNAME=AOPCTLO 

//QOPCTLP 

DD 

QNAME=AOPCTLP 

//QSOFO 

DD 

QNAME-ASOFO 

//Q3270I 

DD 

QNAME=A3270I 

//Q32700 

DD 

QNAME=A32700 

//QDLQI 

DD 

QNAME=DLQ 

//QDLQO 

DD 

SYSOUT=R v 

//SYSUDUMP 

DD 

SYS0UT=A,SPACE=(CYL,(5,1)) 


./ ENDUP 
/X 
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ACF/TCAM SAMPLE 


CHAPTER £ 


This section contains a sample MCP for ACF/TCAM and 
defintions for the devices supported in the MCP. 


REFFREJiCE S 

TCAM Migration To NCP and SNA Featuring IBM 3790 
ACF/TCAM General Information 
ACF/TCAM Concepts and Planning 
ACF/TCAM System Programmer's Guide 
ACF/TCAM Macro Reference Guide 
ACF/TCAM Application Programmer's Guide 
ACF/TCAM Installation and Migration Guide 
ACF/TCAM MSNF Program Reference Summary Supplement 
ACF/TCAM Program Reference Summary 


s ACF/TCAM SAMPLE 

the USS table 

GG22-9100 

GC30-2050 

GC30-3049 

SC30-3117 

SC30-3118 

SC30-3119 

SC30-3121 

LD21-0003 

LY30-3037 
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ACF/TCAM SAMPLE 


AC F / TCAM SAMPLE USE 

TITLE » TCAM SAMPLE MCP* 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X X 

X ACF/TCAM SYSTEM OPERATION X x 

XX X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXX X 

X X 

X X 

X TO START TCAM ENTERS S TCAM * 

x x 

X TO ACTIVATE AND USE LOCAL 3270 f S ENTER: X 

X FROM THE OS CONSOLE: V 4C8,0NTP X 

x x 

x TO STOP TCAM: X 

X 1) FROM THE CONSOLE ENTER: C TCAM(,DUMP) x 

X OR X 

X 2) FROM A LOGGED ON 3270 ENTER: CLOSE X 

X THEN: // 2 TP,QUICK X 

x x 

X TO PRINT THE TRACES ENTER: S TRACES X 

x x 

X TO PRINT THE MESSAGE QUEUE ENTER: S PRTQ X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

x TO INITIATE A SESSION THE FOLLOWING COMMANDS MAY BE USED - ENTER: X 

X X 

x INITS (FOR TCAM SESSIONS) X 

X TCAM (FOR TCAM SESSIONS) x 

X LOGON (TSOID/PASSWORD) (FOR TSO) X 

X TSO (TSOID/PASSWORD) (FOR TSO) X 

X IMS (FOR VTAM SESSIONS) X 

x CICS (FOR VTAM SESSIONS) x 

X X 

X TO TERMINATE A SESSION THE FOLLOWING COMMANDS MAY BE USED - ENTER: X 

X X 

X TERMS (FOR TCAM SESSIONS) X 

X LOGOFF (FOR TSO) x 

X TERMI (FOR VTAM SESSIONS) X 

X TERMC (FOR VTAM SESSIONS) x 

x x 

x ALL FORMATS ARE VALID IN UPPER OR LOWER CASE. x 

x x 
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* MODIFICATIONS TO THE SSCPMH (SEE FURTHER DISCUSSIONS THERE) WILL X 

* ENABLE THESE COMMANDS TO BE INTERPERTED FOR THE CORRECT LU AND X 

* BIND PARAMETERS. NOTE THAT THE REGULAR INITS AND TERMS FORMATS * 

X MAY STILL BE USED TO OVERRIDE THE DEFAULTS. X 

X x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


MESSAGE DEFINITIONS 


TYPE FORMAT 


I XXXXXX 


M M DEST / (DATA) 

0 // (CMD) 

X X (CMD) 

N NDS X (X IS MODEL NO) 

S /TCAMXXXX 


MEANING 

INQUIRY 

MESSAGE SWITCH 

OPERATOR CONTROL 

EXTENDED OPERATOR CONTROL 

NDS TEST MESSAGE FOR ALL MODELS 

SOF OPERATOR COMMANDS 
(OUTPUT GOES TO SDLC76P7) 


x 

x 

x 

x 

x 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
* X ACF/TCAM: PROGID=IEDQTCAM ACF/NCP: NEWNAME=NCPACFI X 


K SYSTEM AS OF * 

UNITSZ=156 

UNITSZ=156 

X 

X 01/05/79 

X 

MAXSUBA=31 

MAXSUBA-31 

X 

X 

X 

SUBAREA=14 

SUBAREA=21 

X 

xxxxxxxxxxxxxxxx 


MAXBFRU=20 

X 

X 




X 

X 




X 

XTYPE GROUP 

LINE 

CLUSTER(PU) TERM(LU) 

MESSAGE TYPES 

X 

X 




X 

X NC? SDLCSV1 

SDLCI29 



X 

X 


PU3270V LU3270V0 

I,M,0,X,S 

X 

X 


LU3270V1 


X 

X 


TO 


X 

X 


LU3270V7 

I,M,0,X,S 

X 

X 




X 

X 

SDLCI22 



X 

X 


SDLC3274 SDLCPA01 

I,M,0,X,N,S 

X 

X 


TO 


X 

X 


SDLCPA08 


X 
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PAGE 


x 

X SDLCI23 

X 
X 
X 

x 

X BSCI25 

X 

X 

x 

X 

X. 


SDLC3276 


BSC3270 


SDLC76P1 

TO 

SDLC76P8 


BSC32700 

TO 

BSC32707 


x 

X 

I,M,0,X,N,S X 
X 

x 

x 

X 

I,M,0,X,N,S x 
I,M,0,X,N,S X 
x 
x 

.X 


X OTHER TCAM LU'S? 
X 

x 

x 

x 


IEDQTCAM (DEFAULT MHS3270) 
MHS3270 (3270 BSC,SDLC & LOCAL) 

NDSMH (3270 NDS) 

TSOMH 


I,M,0,X,S 

I,M,0,X,N,S 


x 

X 

x 

x 

x 

X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXX 


TCAM CSECT 

EXTRN IEDN25 REQUIRED FOR USER EBCF TRANS TABLE 

INTRO ABEFMT=(PCB,SIB> PLCB»OPT)»APDUMP=NO>APWAS = 4024» X 

AUTHA 2 YES,BFRRTN=LO»BRACKET=YES,BTRACE=030,CDRVT=40, X 

CIB=10,CKREQS=0>COMWRTE=YES,CONTROL 2 //,CPB=30, X 

CPINTVL=180 0,CPRCDS=2,CROSSRF=0,DISK=YES,DLQ=DLQ, X 

DTRACE=( 500,POST),ENVIRON=MIXED, X 

FEATURED,,,,MIXD3705,MIXDSNA,NETWORK), X 

INTVAL=0»LINETYP=BOTH,LNUNITS=300,MAXSUBA=31»MSMAX=70, X 
MSMIN=1,MSUNITS=150 f OLTEST=0,PASSWRD=0,PLCBN0=15, X 

PRIMARY=SYSCON,PROGID=IEDQTCAM, RESTART=0>ROUTE=NO, X 

SIBCNT=80,STARTUP 2 C,SUBAREA=14,THRESH=(255,1,1,1), X 

TOPMSG=YES,TRACE=(50, ON),TTRACE=200,UNITSZ=156, X 

USEREG=0,VM=YES 
LTR 15,15 

BZ AOK BRANCH IF NO ERROR 

ABEND 4095,DUMP 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DC C’ACF/TCAM SNA MCP COMPILED’ 

DC C’ &SYSDATE &SYSTIME’ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


AOK 


OPEN (REQUEUE,(INOUT)) OPEN MESSAGE QUEUES DATA SET 
LTR R15,R15 TEST OPEN RETURN CODE 

BNZ BADOPEN IF OPEN FAILED, BRANCH 

OPEN (LOC3270,(INOUT,IDLE)) OPEN LOCAL 3270 DCB 
LTR R15,R15 TEST OPEN RETURN CODE 

BNZ BADOPEN IF OPEN FAILED, BRANCH 
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OPEN (NCPDCB ,(INOUT)) 
LTR R15,R15 
BNZ BADOPEN 
ATTACH EP=APPL3270 
ATTACH EP=OPCTL 
ATTACH EP=APPLMDR 
WTO 'TCAM IS UP .... 
READY GMMSG=GDMRNG 
CLOSE NCPDCB 
CLOSE LOC3270 
CLOSE REQUEUE 
L 13,4(13) 

RETURN (14,12),RC=0 
BADOPEN ABEND 4094,DUMP 


OPEN 3705 NCP 

TEST OPEN RETURN CODE 

IF OPEN FAILED, BRANCH 


READY WITH GOOD MORNING ROUTINE 

CLOSE 3705 

CLOSE LOCAL 3270 

CLOSE MESSAGE QUEUES DATA SET 

RESTORE SAVE AREA POINTER 

RETURN TO CALLER 

AN OPEN MACRO WAS UNSUCCESSFUL 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X THIS GOOD MORNING ROUTINE GETS CONTROL AT STARTUP. X 
X IT IS EXECUTED ONCE FOR EACH TERMINAL IN THE TERMINAL X 
X TABLE. THE TERMMODE OPTION FIELD IS CHECKED FOR A X'10'. X 
X IF A X*10* IS FOUND A GOOD MORNING MESSAGE IS GENERATED. X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


GDMRNG 


RETOS 

NOGMMSG 

GDMSG 


SAVE 


USING 

X,R15 


STM 

RO,R14,SAVE 

SAVE REGISTERS AND ESTABLISH 

LA 

R13,SAVE 

ADDRESSABILITY 

BALR 

70 

OS 

o 


USING 

X,R6 


L 

R4,4(R1) 


TM 

10(R4),X'10' 

TERMMODE SPECIFY GM MSG ? 

BNO 

NOGMMSG 

NO, BRANCH 

LA 

R15,GDMSG 

REG 15 IS ADDR OF GM MSG 

LM 

R0,R14,0(R13) 

RESTORE REGISTERS 

BR 

R14 

RETURN TO OS 

SR 

R15,R15 

CLEAR REG 15 

B 

RETOS 


DC 

AL1(18) 


DC 

C'TCAM IS AVAILABLE 

» 

DROP 

R6 


DC 

15F' 0 * 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


PCBDLQ PCB 
PCBOPCTL PCB 
PCB3270 PCB 
REQUEUE DCB 
NCPDCB DCB 
DUMPDCB DCB 

LOC3270 DCB 


MH=MHDLQAP,BUFSIZE=1024,BUFIN=2,BUFOUT=2 
MH=MH0PCTL,BUFSIZE=256,BUFIN=2,BUF0UT=2 
MH=MH3270AP,BUFSIZE=256,BUFIN=10,BUFOUT=10 
DSORG=TQ,MACRF=(G,P),DDNAME=REQUEUE,OPTCD=R 
DSORG=TR,MACRF=(G,P),DDNAME=NCP 

DSORG=PS,MACRF=(WP),DDNAME=NCPDUMP,BLKSIZE=512,RECFM=F, X 
LRECL=512 

DSORG=TX,MACRF=(G,P),DDNAME=DD3270L,MH=MHS3270,CPRI=S, 
PCI=(N,N),BUFIN=1,BUFOUT=2,BUFMAX=2,BUFSIZE=2028, 
SCT=EBCD,TRANS=IEDN25,INVLIST=(LLST1,,,LLST2) 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


RO 

EQU 

0 

R1 

EQU 

1 

R2 

EQU 

2 

R3 

EQU 

3 

R4 

EQU 

4 

R5 

EQU 

5 

R6 

EQU 

6 

R7 

EQU 

7 

R8 

EQU 

8 

R9 

EQU 

9 

RIO 

EQU 

10 

R13 

EQU 

13 

R14 

EQU 

14 

R15 

EQU 

15 


TITLE ’ TERMINAL TABLE* 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

TERMINAL TABLE 


X 

X 




X 

X 

TERMTYPE X’80» 

3270 TERMINAL 


X 

X 

X*40* 

2770/3770 TERMINAL 


X 

X 

X'20» 

2741/3767 TERMINAL 


X 

X 

X*10* 

NDS 3270 TERMINAL 


X 

X 

X’ 08* 

S/S, BSC LINE CONTROL 

EP MODE 

X 

X 

X* 04* 

S/S, BSC LINE CONTROL 

NCP MODE 

X 

X 

X* 02* 

LOCAL SUPPORT 


X 

X 

X»01» 

SDLC LINE CONTROL 


X 

X 




X 

X 

TERMMODE X»80» 

BATCH 


X 

X 

X»40* 

INQUIRY 


X 

X 

X*20* 

MESSAGE SWITCH 


X 

X 

X’10* 

GOOD MORNING MESSAGES 

REQUIRED 

X 

X 

X*08* 

NO IDLES NEEDED 


X 

X 

X’ 04* 

SCREEN DEVICE 


X 

X 

X’02* 

IDLES NEEDED 


X 

X 

X*01' 

PRINTER 


X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



TTABLE 

MAXLEN=8, 

LAST=BSC32707 

TERMNAME 

OPTION 

CL8 

1 

TERMINAL NAME FIELD 

PATHSW 

OPTION 

XL1 

2 

OPTION FIELD FOR PATH SWITCH 

TERMTYPE 

OPTION 

XL1 

3 

TERMINAL TYPE 8 LINE CONTROL 

TERMMODE 

OPTION 

XL1 

4 

TERMINAL AND APPL CHARACTERISTICS 

ERRCT 

OPTION 

XL1 

5 

TRANS ERROR COUNTER (IEDVOFF) 

IEDLMODE 

OPTION 

CL8 

6 

BIND NAME FOR HOST INITIATED SESSION 

PRNT3270 

OPTION 

CL8 

7 

NAME OF 328X FOR 3277 TO PRINT 

IEDLUNAM 

OPTION 

CL8 

8 

DMH FOR HOST INITIATED SESSION 

IEDQFSCR 

OPTION 

XL1 

9 

TSO FULL SCREEN SUPPORT 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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ERRQ 

DLQ 

DLQO 

AOPCTLI 

AOPCTLO 

AOPCTLP 

ASOFO 

A3270I 

A32700 

APPLS 


TPROCESS PCB=PCB3270,QUEUES~DR 
TPROCESS PCB=PCBDLQ»QUEUES=DR,ALTDEST=DLQ 
TPROCESS PCB=PCBDLQ 

TPROCESS PCB=PCBOPCTL,QUEUES=DR,LU=YES 
TPROCESS PCB=PCBOPCTL,QUEUES=DR 

TPROCESS PCB=PCBOPCTL,ALTDEST=AOPCTLO,SECTERM=YES 
TPROCESS PCB=PCB0PCTL,ALTDEST=SDLC76P7,SECTERM=YES 
TPROCESS PCB=PCB3270»QUEUES=DR,ALTDEST=A3270I 
TPROCESS PCB=PCB3270 

TLIST TYPE=D,LIST=(A3270I,AOPCTLI,DLQ) 


ACF/TCAM 3270 LOCAL TERMINALS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 3270 LOCAL TERMINALS 4C8,4C9 X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

L3277A TERMINAL TERM=327L,DCB=LOC3270,RLN=1,QBY=T,QUEUES=MRT, 
ALTDEST=L3277A,SECTERM=YES,UTERM=NO, 

SCRSIZE=(24,80),FEATURE=(NOBREAK,NOATTN), 

OPDATA 2 (L3277A,0,82,74,0,,LU3270VI,,0) 

L3277B TERMINAL TERM=327L,DCB=LOC3270,RLN=2,QBY=T,QUEUES=MRT, 

ALTDEST=L3277B,SECTERM=YES,UTERM=NO, 

SCRSIZE=< 24,80),FEATURE 2 (NOBREAK,NOATTN), 
0PDATA=(L3277B,0,82,74,0,,LU3270V1,,0) 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X TERMINAL ENTRIES FOR 3705 NCP AND SSCP 'i 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCP TERMINAL TERM=LNCP,DCB=NCPDCB,DUMPDCB=DUMPDCB,ACTIVE=NO 

SSCP TERMINAL TERM=SSCP 


ACF/TCAM CDRM DEFINITION 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X VTAM GROUP,CDRM AND CDRM RESOURCES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

VTAM GROUP MH=HOSTMH,BUFSIZE=256,BUFOUT=5,BUFMAX=10 

MVSVMVT TERMINAL TERM=CDRM,GROUP=VTAM,RLN=l,NETADDR=(13,1),ACTIVE=YES 
IMS TERMINAL TERM=LUNT,GROUP=VTAM,RLN=l,QBY=T,QUEUES=DR,LUCAP=PRI,X 

TCMSESN=LUTERM,OPDATA=(IMS) 

CICS14 TERMINAL TERM=LUNT,GROUP=VTAM,RLN=l,QBY=T,QUEUES=DR,LUCAP=PRI,X 
TCMSESN=LUTERM,0PDATA=(CICS14) 
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ACF/TCAM 3270 MODEL 12 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x GROUP X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
GSNA GROUP MH = MHS3270»TRANS 5 EBCF»BUFMAX 5 7»OPACING 5 5,BUFSIZE 5 2028 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X LINE 1 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLCI29 TERMINAL TERM=LINE>GROUP=GSNA,RLN=1,ACTIVE=YES 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X 3270 LEASED LINE SDLC X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PU3270V TERMINAL TERM=PUNT 

LU3270V0 TERMINAL TERM=LUNT,GROUP=GSNA,RLN 5 1,QBY 5 T,QUEUES 5 MRT,USS 5 3270, 
ALTDEST=LU3270V0,SECTERM 5 YES, 

SCRSIZE=(24,80)>FEATURE 5 (NOBREAK,NOATTN), 
OPDATA=(LU3270V0,0,81,64,0,BI3270NB,LU3270VI,MHS3270,0) 
LU3270VI TERMINAL TERM=LUNT,GROUP=GSNA»RLN=1,QBY 5 T,QUEUES=DR,USS=3270, 
ALTDEST=LU3270V1» 

OPDATA=CLU3270VI,0,81,61,0,BI3270NB,,MHS3270) 


XXXXX 

Code deleted, 
xxxxx 

LU3270V7 TERMINAL TERM=LUNT,GROUP=GSNA,RLN=1,QBY 5 T,QUEUES 5 MRT,USS=3270, 
ALTDEST=LU3270V7,SECTERM=YES, 

SCRSIZE=(24,80),FEATURE=(NOBREAK,NOATTN), 
OPDATA=(LU3270V7,0,81,64,0,BI3270NB,LU3270VI,MHS3270,0) 


ACF/TCAM 3274 LEASED LINE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X LINE 2 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLCI22 TERMINAL TERM=LINE,GR0UP=GSNA,RLN=2,ACTIVE=YES 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X 3274 LEASED LINE SDLC X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLC3274 TERMINAL TERM=PUNT 

SDLCPAO1 TERMINAL TERM=LUNT,GROUP=GSNA,RLN 5 2,QBY=T,QUEUES 5 MRT,USS=SCS, 
ALTDEST=SDLCPA01,SECTERM=YES,BUFSIZE=3588, 
SCRSIZE=(24,80,43,80),FEATURE 5 (NOBREAK,NOATTN), 

OPDATA=(SDLCPAO1,0,11,64,0,NDS3278,SDLCPA07,NDSMH,0) 
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XXXXX 

Code deleted, 
xxxxx 

SDLCPA08 TERMINAL TERM=LUNT,GR0UP=GSNA,RLN=2,QBY=T,QUEUES=DR,USS=SCS, 
ALTDEST=SDLCPA08, 

0PDATA=CSDLCPA08,0,11,61,0,NDS8789,,NDSMH) 


ACF/TCAM 3276 LEASED LINE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x LINE 3 x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLCI23 TERMINAL TERM=LINE»GR0UP=GSNA,RLN=3,ACTIVE=YES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X 3276 LEASED LINE SDLC X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLC3276 TERMINAL TERM=PUNT,ACTIVE=YES 

SDLC76P1 TERMINAL TERM=LUNT,GR0UP=GSNA,RLN=3,QBY=T,QUEUES=MRT,USS=SCS, 

ALTDEST=SDLC76P1,SECTERM=YES, 

SCRSIZE = (24>80»24»80),FEATURE=(NOBREAK» NOATTN), 

OPDATA=(SDLC76P1,0,11,64,0,NDS3278,SDLC76P7,NDSMH,0) 


xxxxx 

Code deleted, 
xxxxx 

SDLC76P8 TERMINAL TERM=LUNT,GROUP=GSNA,RLN=3,QBY=T,QUEUES-DR,USS = SCS, 
ALTDEST=SDLC76P8, 

0PDATA=CSDLC76P8,0,11,61,0,NDS8789,,NDSMH) 


ACF/TCAM BSC 3270 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X GROUP x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
GBSC GROUP MH=MHS3270,TRANS=EBCF,BUFSIZE=2028,PCI=C,N) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x LINE 1 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
BSCI25 TERMINAL TERM=LINE,GR0UP=GBSC,RLN=1,ACTIVE=N0 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 3271 LEASED LINE BSC X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
BSC3270 TERMINAL TERM=327C,GR0UP=GBSC,RLN=1,QBY=T 
BSC32700 TERMINAL TERM=327R,GR0UP=GBSC,RLN=1,QBY=T,QUEUES=DRT, 
ALTDEST=BSC32700,SECTERM=YES, 

SCRSIZE=(24,80),FEATURE=(NOBREAK,NOATTN), 
OPDATA=(BSC32700,0,84,74,0,,BSC32706>,0) 


XXXXX 

Code deleted. 

XXXXX 


BSC32707 TERMINAL TERM=327R,GR0UP=GBSC,RLN=1,QBY=T,QUEUES=DR, > 

ALTDEST=BSC32707,OPDATA=CBSC32707,0,84,71,0) 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X 3270 LOCAL INVITATION LIST X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
LLST1 INVLIST ORDER=(L3277A+06) LOCAL 3270 INVITATION LIST. 

LLST2 INVLIST ORDER=(L3277B+06) ONE REQUIRED PER LOCAL DEVICE 

X MUST BE DEFINED IN THE SAME SEQUENCE AS THE TERMINAL MACROS 

XXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

TSINPUT 

TITLE ' SSCP MESSAGE HANDLER' 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

X 

X 


MESSAGE HANDLER FOR SYSTEM SERVICES CONTROL POINT 


x 

x 

x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X IEDMHGEN SSCP=YES,TOTE=NO 


IEDSCPMH 

STARTMH MH=SSCP 




IEDDCT1 

EQU 

X'01' 

DISPLACEMENT 

FOR 

DCTBYTEl 

IEDPREFG 

EQU 

X'03' 

DISPLACEMENT 

FOR 

PRF1FLG1 

IEDFDDCT 

EQU 

X'05' 

DISPLACEMENT 

FOR 

DCTBYTE5 

IEDTRMB0 

EQU 

X'OA' 

DISPLACEMENT 

FOR 

TRMBYTE0 

IEDCINDX 

EQU 

X'10' 

DISPLACEMENT 

FOR 

TRMCHIN 

IEDSRCE 

EQU 

X'10» 

DISPLACEMENT 

FOR 

PRFSRCE 

IEDDEST 

EQU 

X'28 * 

DISPLACEMENT 

FOR 

PRFDEST 

IEDSTAT2 

EQU 

X'47' 

DISPLACEMENT 

FOR 

LCBRSP 

IEDFSTCH 

EQU 

X’100' 

DISPLACEMENT 

FOR 

AVTCSTCS 

IEDMKLEN 

EQU 

X'3E8' 

DISPLACEMENT 

FOR 

AVTDCTLN 

IEDLRSP 

EQU 

X'01' 

EQUATE FOR LCBRESP 

IEDTRMSN 

EQU 

X' 02* 

EQUATE FOR TRMSNA 

IED3270R 

EQU 

X* 04* 

EQUATE FOR DCT3270 

IEDCNVTD 

EQU 

X'08’ 

EQUATE FOR PRF1USS 

IEDRHFMT 

EQU 

X' 08' 

EQUATE FOR FORMATTED INDICATOR 

IEDPFLCB 

EQU 

X'OC' 

EQUATE FOR PRFLCB 

IEDF3270 

EQU 

X'40' 

EQUATE FOR DCTL3270 
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INHDR 

L 

6,IEDADBUF 

GET BUFFER ADDRESS 

SLR 

1,1 

CLEAR REGISTER 

I CM 

1,3,IEDSRCE(6) 

GET SOURCE TERMINAL'S TNT 

L 

15,IEDRNMPT 

GET ADDRESS OF TNT ROUTINE 

BALR 

14,15 

CONVERT TNT TO TTE 

LR 

8,1 

SAVE SOURCE TERMINAL'S TTE ADDR 

LH 

11,IEDMKLEN(13) 

GET LENGTH FOR DCT MASK 

SLR 

2,2 

CLEAR REGISTER 

IC 

2,IEDCINDX(8) 

GET DEVICE CHAR TABLE INDEX 

BCTR 

2,0 

SUB 1 FROM DEVICE CHAR INDEX 

MR 

10,2 

MULT DCT MASK LENGTH BY INDEX 

AL 

11,IEDFSTCH(13) 

ADD ADDRESS FOR FIRST ENTRY 

LR 

7,1 

GET TTE ADDRESS 

SL 

7»IEDTTPFL 

BACK UP TO START OF NEG PREFIX 

TM 

IEDTRMB0(7)»IEDTRMSN 

IS SOUREC A FID1 DEVICE 

BNZ 

IEDFID1 

YES 

TM 

IEDDCTl(ll)>IED3270R 

IS SOURCE A REMOTE 3270 

BZ 

IEDNR327 

NO 

MSGEDIT ((R,,SCAN,(5))),BLANK-NO REMOVE CU DEV AID CUR CUR 

MSGEDIT ((RA,»X'11',(2))) 

REMOVE SBA ADDR ADDR 

B 

IEDTRYFT 

FORMAT 3270 FIDO INPUT 


IEDNR327 MSGEDIT ((RA,,X'15')) 

MSGEDIT ((RA,,X'3C')) 

MSGEDIT ((RA»»X'1E'),(RA,,X'1F')) REMOVE IRS IUS 
B IEDTRYFT FORMAT FIDO INPUT 

IEDFID1 TM IEDFDDCT(ll)»IEDF3270 IS THIS 3270 DATA STREAM ? 

BZ IEDN3270 NO 

MSGEDIT ((RA,,X'01',(3)),(RA,,X'11',(2)),(RA,,X'7D*,(2))), > 

BLANK=NO (SOH % / STX),(SBA ADDR ADDR)»(AID CUR CUR) 
B IEDCKFMT SEE IF FORMATTED 

IEDN3270 MSGEDIT ((RA»,X'15 T )) REMOVE NL 

IEDCKFMT IEDRH RHIND=C+FMH> 

LTR 15,15 RU FORMATTED ? 

BZ IEDSCPFD YES 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX PASC 

CODE IEDN25 OP CTL AND TRANSLATE PASC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX PASC 

SETSCAN C'lEDTOTE/',BLANK=NO 

LTR 15,15 IS THIS A TOTE COMMAND 

BNZ IEDTRYFT NO 

FORWARD TASK=TOTE 

L 6,IEDADBUF GET BUFFER ADDRESS 

MVI 0(6),X'lC' SET PRFKEY FOR TOTE 

B IEDNDPRC BRANCH TO END PROCESSING 

IEDTRYFT EQU * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX PASC 

X THIS CHANGE TESTS FOR A USS TYPE OF DEVICE AND FORMATS THE PASC 
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MESSAGES ACCORDING TO A USS TABLE FOR THAT TYPE OF DEVICE. 

EACH USS TABLE HAS STANDARD DEFAULTS THUS ELIMINATING THE 
REQUIREMENT TO KEY THESE IN AT SESSION INITIATION OR 
TERMINATION TIME BUT STILL ALLOWING USERS TO OVERRIDE THE 
DEFAULTS IF REQUIRED. 

IN ORDER TO LOGON TO TSO USING: LOGON TSOID/PASSWORD 
EACH USS TABLE HAS THE USER DATA FIELD DEFINED (LENGTH 14). 

THESE CHANGES ARE DEPENDENT ON USING THE TERMTYPE OPTION FIELD 
FOR EVERY TERMINAL AS DEFINED BELOW: 


PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 

PASC 


X TERMTYPE OPTION XL1 X*80* 

3270 

TERMINAL 


PASC 

X 

X’ 40 1 

3770 

TERMINAL 


PASC 

X 

X’ 20 * 

3767 

TERMINAL 


PASC 

X 

X'10' 

NDS 

3270 TERMINAL 


PASC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

PASC 

LOCOPT TERMTYPE,(5) 


IS OPTION FIELD 

PRESENT 

PASC 

LTR 

15,15 


TEST RETURN 


PASC 

BNZ 

SSCPFMT 


NO - EXIT 


PASC 

TM 

0(5)»X’80' 


3270 


PASC 

BO 

SSCP3270 


YES 


PASC 

TM 

0(5),X’20' 


3767 


PASC 

BO 

SSCP3767 


YES 


PASC 

TM 

0(5),X f 40’ 


3770 


PASC 

BO 

SSCP3770 


YES 


PASC 

TM 

0(5),X'10» 


NDS 3270 


PASC 

BO 

SSCPNDS 


YES 


PASC 

B 

SSCPFMT 


NONE OF THESE - 

EXIT 

PASC 

SSCP3270 EQU 

X 




PASC 


IEDFMT IN=IEDAREA1,OUT=IEDAREA2,TABLE=USS3270 PASC 

B IEDSCPFD PASC 

SSCP3767 EQU * PASC 

IEDFMT IN=IEDAREA1,0UT=IEDAREA2,TABLE=USS3767 PASC 

B IEDSCPFD PASC 

SSCP3770 EQU X PASC 

IEDFMT IN=IEDAREA1,OUT=IEDAREA2,TABLE=USS3770 PASC 

B IEDSCPFD PASC 

EQU X PASC 

IEDFMT IN=IEDAREA1,0UT=IEDAREA2,TABLE=USSNDS PASC 

B IEDSCPFD PASC 

EQU x PASC 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX PASC 

IEDFMT IN=IEDAREA1,0UT=IEDAREA2,TABLE=IEDUSSTB 
x 

6,IEDADBUF GET BUFFER ADDRESS 

4,IEDPFLCB(6) GET PLCB ADDRESS 


SSCPNDS 


SSCPFMT 


IEDSCPFD EQU 
L 
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NI IEDSTAT2C4)»X*FF'-IEDLRSP SO NO RESPONSE IS SENT 
FORWARD TASK=SSCP 


IEDNDPRC INEND 
OUTHDR 


2,IEDADBUF 
2,IEDNGPRF 

IEDPREFGC2),IEDCNVTD 
IEDNFMT 


GET BUFFER ADDRESS 
BACK UP TO NEGATIVE PREFIX 
NEED TO BE CONVERTED 
NO 


IEDFMT IN=IEDAREA1,0UT=IEDAREA2,TABLE=IEDFSSTB 


IEDNFMT 


IEDOUTPC 
6,IEDADBUF 
1,1 

I, 3,IEDDEST(6) 

15,IEDRNMPT 
14,15 

8,1 

II, IEDMKLENC13) 

2,2 

2,IEDCINDXC8) 

2,0 

10,2 

11,IEDFSTCHC13> 

6,IEDNGPRF 

0(6),IEDRHFMT 

IEDOUTPC 

IEDFDDCT(11),IEDF3270 
IEDCKFDO 

IEDPREFGC6),IEDCNVTD 


BRANCH TO OUTEND PROCESSING 

GET BUFFER ADDRESS 

CLEAR REGISTER 

GET DEST'S TERMINAL'S TNT 

GET ADDRESS OF TNT ROUNTINE 

CONVERT TNT TO TTE 

SAVE DESTINATION'S TTE ADDR 

GET LENGTH FOR DCT MASK 

CLEAR REGISTER 

GET DEVICE CHAR TABLE INDEX 

TAKE 1 FROM DEV CHAR INDEX 

MUTPLY DCT MASK LEN * INDEX 

ADDRESS FOR FIRST ENTRY 

GET NEGATIVE PREFIX 

RU FORMATTED ? 

YES 

IS THIS 3270 DATA STREAM? 

CK FOR NL INSERTION 
CONVERTED DATA ? 

YES - EXIT 


BO IEDOUTPC YES - EXIT 

MSGEDIT C(I,XL2'F1C3',,)) 

B IEDOUTPC EXIT 

IEDCKFDO TM IEDTRMB0(8),IEDTRMSN FID1? 

BZ IEDOUTPC NO 

MSGEDIT C(I,X'15*,») ) INSERT NL AT START OF BUFFER 

MSGEDIT <(I,X*15',0,)),LAST=YES INSERT NL AT END OF MSG 
IEDOUTPC OUTEND 


DS 

IEDTTPFL DC 
IEDNGPRF DC 
IEDAREA1 DC 
DC 

IEDAREA2 DC 
DC 

TITLE ' 


OF 

F' 18' 

F'8* 

XL6*010000000000' 
XL256*00* 

XL 6'010000000000' 
XL256'00' 


LENGTH OF TERM. NEGATIVE PREFIX 
LENGTH OF BUFFER NEGATIVE PREFIX 
AREA FOR IEDFMT MACRO 

AREA FOR IEDFMT MACRO 

APPLICATION MESSAGE HANDLERS' 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* MESSAGE HANDLER FOR OPERATOR CONTROL PROGRAM X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MHOPCTL STARTMH 
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INKDR 

IEDOPCTL 

FORWARD DEST=PUT 

INEND 

OUTEND 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X MESSAGE HANDLER FOR 3270 INQUIRY APPLICATION PROGRAM X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MH3270AP STARTMH 
INHDR 

FORWARD DEST=PUT 

INEND 

OUTEND 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X MESSAGE HANDLER FOR ALL MESSAGES SENT TO THE DEAD LETTER QUEUE x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MHDLQAP STARTMH 
INHDR 

FORWARD DEST=PUT 

INEND 

OUTEND 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X CROSS DOMAIN MH X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


HOSTMH STARTMH BEXIT=(BINDXHH),DFC=NONE 
INHDR 
INEND 
OUTEND 

TITLE • 3270 BSC,SDLC AND LOCAL MH’ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X 3270 MESSAGE HANDLER X 

X X 

X THIS MH SUPPORTS 3270 LOCAL,BSC AND SDLC. x 

x x 

X INPUT DATA WILL APPEAR AS FOLLOWS: X 

X A. CDACCSBB X 

X UVIUUBUU (USER TEXT) X 

X CDRRAFF X 

x X 

X B. 4 SNA SENSE BYTES X 

X x 

x CU AND DVC ARE PRESENT FOR BSC ONLY. X 

X SBA, BUF AND BUF ARE PRESENT WITH FORMATTED SCREENS ONLY. X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MHS3270 STARTMH DFC=FULL,LU=YES,ALTMH=TSOMH 
INHDR 

PATH X'OO *,PATHSW RESET PATHSW TO IDENTIFY ERRORS 

X LOCATE THE ERRCT OPTION FIELD. IF IT IS EQUAL TO ZERO THEN IT 

PAGE 6-14 SNA PRODUCT INSTALLATION GUIDE G320-6028 (2/79) 



ACF/TCAM SAMPLE 


X 

MUST BE 

RESET TO ONE 

TO PREVENT IEDVOFF FROM SUBTRACTING TO 

X 

MINUS ON GOOD TRANS. 

SEE INMSG AND OUTMSG. 


LOCOPT 

ERRCT, (7) 

REG 7 IS ADDR OF ERRCT OPTION 


LTR 

R15/R15 

GOOD RETURN CODE ? 


BNZ 

S32L0PT 

NO, FORGET IT, BRANCH 


CLI 

0(R7),X»00» 

TEST ERRCT EQUAL ZERO 


BNE 

S32L0PT 

BRANCH NOT EQUAL ZERO 


MVI 

0(R7),X’01' 

SET TO ONE TO PREVENT MINUS ON VOFF 

S32L0PT 

LOCOPT 

TERMTYPE,(4) 

REG 4 IS ADDR OF TERMTYPE OPTION 


LTR 

R15,R15 

GOOD RETURN CODE ? 


BZ 

S32M0DE 

YES, GO LOCATE TERMMODE OPTION 

S32PATH1 

PATH 

X' 01'»PATHSW 

SET OPTION NOT FOUND PATHSW 


B 

S32FMSG 


S32M0DE 

LOCOPT 

TERMMODE,(5) 

REG 5 IS ADDR OF TERMMODE OPTION 


LTR 

R15,R15 

GOOD RETURN CODE ? 


BZ 

S32TYPE 

GO CHECK TERMTYPE 


PATH 

X'01'»PATHSW 

SET OPTION NOT FOUND PATHSW 


B 

S32FMSG 


S32TYPE 

SETSCAN 

0 

SET SCAN POINTER 


LTR 

R15,R15 

TEST RC FOR -4 (ZERO LENGTH BUFFER) 


BM 

S32FMSG 

DO NOT PROCESS ZERO LENGTH BUFFERS 


LR 

R3,R15 

SAVE ADDR OF DATA-1 FROM SETSCAN 


CLC 

1(3,R3),STATUS IS IT STATUS MSG 


BE 

S32STAT 

YES 


TM 

0(R4),X»81’ 

3270 SDLC 


BO 

S32RH 

YES 


TM 

0(R4),X'82» 

3270 LOCAL 


BO 

S32CLR 

YES 


MSGEDIT 

((R,,,(2)))»BLANK=NO 


TM 

0(R4),X'84' 

3270 BSC 


BO 

S32CLR 

YES 


PATH 

X*04',PATHSW 

TERMTYPE ERROR 


B 

S32FMSG 


S32RH 

IEDRH 

RHIND=(+EXR) 

TEST FOR SENSE INCLUDED MSG 


CLM 

R15,1,=X , 08' 

TEST RETURN CODE 


BNE 

S32SENSE 

YES EXR, BRANCH 

S32CLR 

CLI 

1(R3),X*6D* 

CLEAR KEY ? 


BNE 

S32RPA1 

NO, GO TEST FOR PA1 


TERRSET 


FOR CLEAR MSGGEN - DO NOT FORWARD 


B 

S32IMG10 


S32RPA1 

CLI 

1(R3),X'6C* 

PA1 KEY ? 


BE 

S32PRINT 

YES, GO TO PRINT ROUTINE 


CLI 

1(R3),X'7D' 

ENTER KEY ? 


BNE 

S32UKWN 

NO, GO TO UNKNOWN INPUT 


CLI 

4(R3),X'll* 

IS 4TH BYTE AN SBA (FORMATTED) 


BNE 

S32DEL3 

NO, UNFORMATTED BRANCH 


MSGEDIT 

((R,,,(6))),BLANK=NO DEL AID 2CCUR) SBA 2CBUF) 


B 

S32C0DE 

ONLY DATA LEFT, GO PROCESS 
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S32DEL3 MSGEDIT (<R,,,C3)>),BLANK=NO DELETE AID 2(CUR) 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
x DATA STREAM IS NOW USER DATA ONLY. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
S32C0DE CODE 
LOGON 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS EXTENDED OPERATOR CONTROL COMMANDS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



CLI 

1(3),C'/' 


BNE 

TERRSET 

S32MTYP 


B 

S32MFWD 

S32MTYP 

MSGTYPE 

X 

S32MFWD 

FORWARD 

DEST=C’AOPCTLI' 


B 

S32IMG10 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x PROCESS MESSAGE SWITCH M DEST / USER MESSAGE X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE M 

FORWARD DEST=xx,EOA=/ 

TERRSET 

B S32IMG10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS INQUIRY MESSAGE I 999999 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE I 
B S32FWD 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x PROCESS CLOSE MSG TO CLOSE APPLICATIONS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE CLOSE 
TERRSET 

FORWARD DEST=C'APPLS’ 

B S32IMG10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS OTHER MESSAGES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE , UNIDENTIFIED MESSAGE 

S32UKWN PATH X'10',PATHSW SET UNKNOWN INPUT PATHSW 

B S32FMSG 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X THIS ROUTINE WILL PROCESS PA1 REQUEST TO PRINT THE LAST X 
X MESSAGE SENT TO A DISPLAY. TO ALLOW THIS FUNCTION, THE X 
X PRNT3270 OPTION FIELD MUST BE DEFINED FOR THE 3277 GIVING X 
X THE NAME OF THE 328X PRINTER TO RECEIVE THE MESSAGE. X 
X A SPECIAL PRINT REQUEST MESSAGE WILL BE BUILT AND SENT TO X 


x THE 3270 APPLICATION. THE MESSAGE WILL CONTAIN THE NAME OF X 
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X THE PRINTER AND THE SEQUENCE NUMBER OF THE LAST OUTPUT x 

X MESSAGE SENT TO THE DISPLAY. THE APPLICATION WILL RETRIEVE x 

X THAT MESSAGE USING POINT AND GET MACROS AND BUILD A PRINT X 

X MESSAGE. X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
S32PRINT LOCOPT PRNT3270,(6) REG 6 ADDR OF PRINTER NAME OPTION 

LTR R15,R15 GOOD RETURN CODE ? 

BZ S32PR01 YES, GO TO BUILD PRINT MESSAGE 

PATH X’20’,PATHSW SET PRINTER OPTION NOT FOUND PATHSW 

B S32FMSG 

S32PR01 MVC S32MHPRT,0(R6) MOVE PRINTER NAME TO MHPUT AREA 

L R6,IEDADBUF REG 6 IS ADDRESS OF CURRENT BUFFER 

LH R1,16(0,R6) LOAD TNT OFFSET INTO REG 1 

X IEDRNMPT IS AVT FIELD CONTAINING ADDRESS FOR ROUTINE IN 

X TERMINAL TABLE THAT CONVERTS TNT OFFSET TO TTE ADDRESS. 

X THIS ROUTINE EXPECTS TNT OFFSET IN LOWER TWO BYTES OF REG 1 


L 

R15,IEDRNMPT 

REG 15 IS ADDR OF TNT CONV ROUTINE 

BALR 

R14,R15 

CONVERT TNT OFFSET TO TTE ADDRESS 

LH 

R6,6(0,R1> 

REG 1 PLUS 6 IS OUTPUT SEQ NUM 

SH 

R6,=H'l* 

SEQ NUM ALWAYS NEXT NUM TO BE USED 

STH 

R6.S32SEQWK 

STORE SEQ NUM 

MVC 

S32MHSEQ,S32SEQWK 

PUT SEQ NUM IN MESSAGE 

MHPUT 

W0RK=S32MHWRK 

PUT NEW PRINT REQUEST MSG IN BUFFER 

LTR 

R15,R15 

GOOD RETURN CODE ? 

EZ 

S32SETER 

YES, GO TO FORWARD MESSAGE 

PATH 

X’80’,PATHSW 

SET BAD MHPUT PATHSW 

B 

S32FMSG 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X SENSE INCLUDED MESSAGES FOR 3270S CONTAIN 4 SENSE BYTES X 
X PRECEDING THE USER DATA. THE FIRST 2 BYTES ARE SNA SENSE X 
X INFORMATION THAT IS MAPPED INTO THE MER BITS. THE 3RD AND X 
X 4TH BYTES ARE ’USER BYTES’ AND FOR SDLC 3270S CONTAIN x 
X INFORMATION SIMILAR TO THE BSC 3270 SOH % R STATUS X 
X MESSAGES. WHEN BYTES 3 AND 4 ARE NONZERO THE UNDEFINED ERROR X 
X BIT 31 IS SET IN THE MER. THIS IS EQUIVALENT TO BIT 15 THE X 
X STATUS MESSAGE BIT FOR BSC DEVICES. THIS MH WILL CANCEL A x 
X MESSAGE IF ANY SNA BITS ARE PRESENT, BUT IF ONLY 3270 SENSE X 
X INFORMATION IS PRESENT, IT WILL NOT BE ANALYZED OR CANCELED. X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

S32SETER TERRSET SET USER BIT FOR CLEAR MSGGEN 

S32FWD FORWARD DEST=C’A3270I’ 

B S32IMG10 

S32STAT CLC 6(2,R3),DVCAVAIL IS USER SENSE DEVICE AVAILABLE ? 

BNE S32FMSG NO, BRANCH 

B S32RLS 

S32SENSE CLC 3(2,R3),SDVCAVL IS USER SENSE DEVICE AVAILABLE ? 

BNE S32FMSG NO, BRANCH 

S32RLS IEDRELS RELEASE QUEUE, DEVICE IS AVAIL 
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X IT IS POSSIBLE TO HAVE SNA SENSE BYTES WITH A ZERO LENGTH 

X BUFFER. SINCE IT MILL BE AN ERROR AND MILL BE IN THE MER 

X BITS, NO EXAMINATION MILL BE DONE HERE. 

S32FMSG FORWARD DEST s C'DLQ' THIS MESSAGE IS TO BE CANCELED 

X A FORWARD IS REQ'D IF ERRORMSG USED 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X INMESSAGE SUBGROUPS ARE EXECUTED AFTER THE ENTIRE X 

X MESSAGE HAS BEEN RECEIVED AND THE MESSAGE ERROR x 

X BITS ARE SET. ONLY ONE SUBGROUP WILL EXECUTE AND X 

X IT WILL BE THE FIRST ONE WHOSE PATH IS SATISIFIED. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
S32IMG10 INMSG PATH=(PATHSW,X*01'> OPTION FIELD NOT DEFINED 
CANCELMG , CANCEL THE MSG 

ERRORMSG »DATA=S32MSG04,HEADER=NO 
IEDHALT , BREAK SESSION 

INMSG PATH=(PATHSW,X»04') TERMTYPE NOT 3270 SDLC 
CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG05,HEADER=NO 
IEDHALT , BREAK SESSION 

INMSG PATH=(PATHSW,X'10') UNKNOWN INPUT AID OR MSG TYPE 
CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG06,HEADER=NO 

INMSG PATH=(PATHSW»X f 20*) PRNT3270 NOT DEFINED NO PRINT 

CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG07,HEADER=NO 

INMSG PATH=(PATHSW,X'80 *) MHPUT FAILED 

CANCELMG , CANCEL THE MSG 

ERRORMSG ,DATA=S32MSG08,HEADER=NO 

INMSG PATH=(TERMTYPE,X»02») 3270 LOCAL 

CANCELMG X*430EC7F7FF» 

MSGGEN X* 0000080000',S32RSETL 

INMSG , WHATS LEFT SHOULD BE 3270 SDLC 

CANCELMG X'430EC6F7FF' NOTE: BIT 31 UNDEF ERR NOT CANCELED 

MSGGEN X* 0000080000',S32RSETN RESET 3277 NCP IF USER BIT 
X THE NEXT THREE IEDVOFF MACROS ARE TO COUNT TRANS ERRORS AND 

X IF 10 ERRORS ARE FOUND BEFORE GOOD TRANS RESET THE COUNTER TO 

X ZERO, THEN POLLING WILL BE STOPPED FOR THAT TERMINAL FOR ONE 

X MINUTE. THE SYSTEM CONSOLE WILL RECEIVE A TERMINAL STOPPED 

X MESSAGE. 

X TO PREVENT ERRCT FROM GOING NEGATIVE BECAUSE OF SUBTRACTING 

X ON GOOD MESSAGES, CODE IN INHDR AND OUTHDR RESETS ERRCT TO 

X ONE WHEN IT REACHES ZERO. 

IEDVOFF X'010445F7FF*,C0UNT=(ERRCT,GT,9),INTVL=60 
X ADD TO COUNTER IF ERROR. IF COUNTER EQUAL OR 

X GREATER 8, STOP POLLING FOR 1 MINUTE, CLEAR 

X COUNTER, NOTIFY SYSTEM CONSOLE. 

IEDVOFF ,COUNT = CERRCT,EQ,250),UPDATE=SUB EVERY MESSAGE 

IEDVOFF X'010445F7FF',COUNT=(ERRCT,EQ,250) BAD MSG ONLY 
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ERRORMSG X»010405F7FF',DATA=S32MSG01,HEADER=NO 

ERRORMSG X'0200820000>,DATA=S32MSG02,HEADER=NO 

ERRORMSG X'4 0 0 24 0 0 0 0 0 *,DATA=S32MSG0 3,HEADER=NO 

ERRORMSG X*FF7FF7FFOO’,DATA=S32XX,DEST=C'ERRQ*,EXIT=ERMSGXIT 

INEND 

OUTHDR 

PATH X'00’,PATHSW RESET PATHSW TO IDENTIFY ERRORS 

X LOCATE THE ERRCT OPTION FIELD. IF IT IS EQUAL TO ZERO, THEN 

X RESET TO ONE TO PREVENT IEDVOFF FROM SUBTRACTING TO MINUS 

X FOR GOOD TRANS. SEE INMSG AND OUTMSG. 

LOCOPT ERRCT,(7) REG 7 IS ADDR OF ERRCT OP 

LTR R15,R15 GOOD RETURN CODE ? 

BNZ S32SCANA NO, IGNORE IT, BRANCH 

CLI 0(R7),X’00’ TEST ERRCT EQUAL ZERO 

BNE S32SCANA BRANCH NOT EQUAL TO ONE 

MV I 0(R7),X’01’ SET TO ONE TO PREVENT MINUS ON VOFF 

S32SCANA SETSCAN 0 SET SCAN POINTER 

LTR R15,R15 TEST FOR ZERO LENGTH BUFFER 

BM S32OMG10 RC -4 IS ZERO BUFFER DO NOT PROCESS 

LR R3,R15 SAVE ADDR OF DATA-1 FROM SETSCAN 

LOCOPT TERMTYPE,(4) REG 4 IS ADDR OF TERMTYPE OPTION 

LTR R15,R15 GOOD RETURN CODE ? 

BZ S320M0DE YES, GO LOCATE TERMMODE OPTION 

PATH X’01’,PATHSW SET OPTION NOT FOUND PATHSW 

B S320MG10 OUTHDR COMPLETE, GO CHECK MER BITS 

S320M0DE LOCOPT TERMMODE,(5) REG 5 IS ADDR OF TERMMODE OPTION 

LTR R15,R15 GOOD RETURN CODE ? 

BZ S32ESC YES 

PATH X’01’,PATHSW SET OPTION NOT FOUND PATHSW 

B S320MG10 OUTHDR COMPLETE, GO CHECK MER BITS 

S32ESC CLI 1(R3),X’27’ IS IT FORMATTED? 

BE S32RESC YES - DO NOT FORMAT 

MSGEDIT UI»X'27’,SCAN)) 

MSGEDIT UI,X’F17B1140401D4013’,SCAN)) 

S32RESC TM 0<R4),X’82’ IS IT LOCAL? 

BNE S32DESC NO 

SCREEN WEA,RETRV=YES SCREEN REQD FOR LOCALS 

MSGEDIT UR,,, (2))) REMOVE ESC AND CMD 

B S32DE0T 

S32DESC TM 0(R4),X’84’ IS IT BSC? 

BO S32DE0T YES 

MSGEDIT URA, »XL1'27*)) REMOVE ESC FOR DATA STREAM 
S32DE0T MSGEDIT URA,,XL1»37’)) REMOVE ANY EOTS CIED MSGS USUALLY) 

X IF THE USER WANTS TO EXAMINE THE SNA SENSE BYTES PRIOR TO 

X OUTMSG, THE CODE SHOULD BE INSERTED HERE. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X OUTMESSAGE SUBGROUPS ARE EXECUTED AFTER THE COMPLETE X 

X MESSAGE HAS BEEN SENT. ONLY ONE SUBGROUP WILL EXECUTE X 
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X AND IT WILL BE THE FIRST ONE WHOSE PATH IS SATISIFIED. X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

S320MG10 OUTMSG PATH=(PATHSW,X’01') OPTION FIELD NOT DEFINED 

HOLD , HOLD AND NOTIFY TCAM PRINTER 

ERRORMSG ,DATA=S32MSG04,DEST=C’LU327 0VI',HEADER=NO 

OUTMSG PATH=(ERRCT,X’F8’) ERRCT 8 OR MORE 

HOLD , HOLD FOR UNRECOVERABLE ERROR 

IEDVOFF ,COUNT=(ERRCT,GE,0) CLEAR ERRCT 

OUTMSG 

HOLD X’000003F7FF*,INTVL=15 RESEND AFTER 15 SEC 

* THE NEXT THREE IEDVOFF MACROS ARE TO COUNT TRANS ERRORS AND 

X THE NUMBER OF TEMPORARY HOLDS (HOLD WITH INTERVAL). 

X WHEN THE ERRCT IS 8, THEN A DIFFERENT OUTMSG WILL EXECUTE 

X WHICH WILL ISSUE A PERMANENT HOLD. IEDVOFF IS ONLY BEING 

X USED FOR ITS COUNTER CAPABILITY. 

X TO PREVENT ERRCT FROM GOING NEGATIVE BECAUSE OF SUBTRACTING 

X ON GOOD MESSAGES, CODE IN INHDR AND OUTHDR RESETS ERRCT TO 

X ONE WHEN IT REACHES ZERO. 

IEDVOFF X'000003F7FF',COUNT=(ERRCT,EQ,250) ADD IF ERROR 
IEDVOFF ,COUNT=(ERRCT,EQ,250),UPDATE=SUB EVERY MSG 
IEDVOFF X'000003F7FF*»COUNT 2 (ERRCT,EQ,250) BAD MSGS ONLY 
ERRORMSG X*FF7FF7FFOO’,DATA=S32XX,DEST=C'ERRQ•,EXIT=ERMSGXIT 
OUTEND 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X ERROR MESSAGES USED BY ERRORMSG MACRO AND WORK AREAS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

S32XX DC AL1C25) 

DC C’ERROR 2 XXXXXXXX 

S32MSG01 DC AL1C35) MESSAGE LENGTH 

DC CS32-01 TRANSMISSION ERROR, RE-ENTER* 

S32MSG02 DC AL1(42) MESSAGE LENGTH 

DC C’S32-C2 SYSTEM UNDER STRESS, RE-ENTER LATER* 

S32MSG03 DC ALK34) MESSAGE LENGTH 

DC CS32-03 DESTINATION ERROR, RE-ENTER’ 

S32MSG04 DC AL1C25) MESSAGE LENGTH 

DC C*S32-04 OPTION FIELD ERROR' 

S32MSG05 DC AL1C38) MESSAGE LENGTH 

DC CS32-05 TERMTYPE NOT 3270 SDLC OR LOCAL* 

S32MSG06 DC AL1(30) MESSAGE LENGTH 

DC C’S32-06 UNKNOWN INPUT, RE-ENTER’ 

S32MSG07 DC AL1C42) MESSAGE LENGTH 

DC CS32-07 PRINT NOT DEFINED FOR THIS TERMINAL’ 

S32MSG08 DC AL1(31) MESSAGE LENGTH 

DC CS32-08 MHPUT FAILED, CANT PRINT’ 

S32RSETN DC AL1(08) SDLC 3277 CLEAR SCREEN 

DC X’F5C31140401D4013’ 

S32RSETL DC AL1C10) LOCAL 3277 CLEAR SCREEN 

DC X’C31140401D4013124040’ 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X WORK AREA TO BUILD PRINT REQUEST MESSAGE WHEN PA1 RECEIVED X 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


S32MHWRK DS 
DC 
DC 
DC 
DC 

S32MHPRT DC 
S32MHSEQ DC 


0CL21 

X'0000* 

X'OOOF’ 

X'0000' 

C'PRINT* 

CL8' * 

CL2' » 


MHPUT WORKAREA 
RESERVED 

USER DATA LENGTHOF 15 
RESERVED 

MESSAGE TYPE FOR APP 
PRINTER NAME 

SEQ NUMBER OF MSG TO BE PRINTED 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X OTHER CONSTANTS AND WORKAREAS X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


STATUS DC 
DVCAVAIL DC 
SDVCAVL DC 
S32SEQWK DC 

LTORG 

TITLE ’ 


X'6CD902' 
X'C240 * 

X' 0200' 
H'O’ 


STATUS MESSAGE 7 , R STX 
BSC SENSE FOR DEVICE AVAILABLE 
SDLC SENSE FOR DEVICE AVAILABLE 
SEQ NUMBER WORK AREA 

NDS MESSAGE HANDLER' 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x NDS MESSAGE HANDLER X 

X X 

X WILL HANDLE BRACKETS AND CHANGE OF DIRECTION X 

X USING HALF DUPLEX FLIP-FLOP PROTOCOL X 

x x 

X INPUT DATA WILL APPEAR AS FOLLOWS: X 

X A. ACCSBB X 

X I U U B U U (USER TEXT) x 

X DRRAFF X 

x x 

X B. (4 BYTES SNA SENSE)(DATA OR DFC COMMAND) X 

X X 

X SBA, BUF AND BUF ARE PRESENT WITH FORMATTED SCREENS ONLY. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NDSMH STARTMH DFC=FULL»LU=YES»BEXIT=NDSBXIT 

INHDR 

PATH X'00'>PATHSW RESET PATHSW 


SETSCAN 0 

LTR R15,R15 

BM NDSZERO 

LR R3,R15 

IEDRH RHIND=(+DFC) 

CLM R15,1,=X'08' 

BE NDNOTDFC 

IEDRH RHIND=C+EXR) 

CLM R15»1» =X'08' 

BE NDN0EXR1 


RESET PATHSW 

TEST FOR ZERO LENGTH BUFFER 
TEST RC FOR -4 (ZERO LENGTH BUFFER) 
DO NOT PROCESS ZERO LENGTH BUFFERS 
SAVE ADDR OF DATA-1 FROM SETSCAN 
GET RH 
DFC COMMAND 
BRANCH IF NO 
GET RH 

EXCEPTION REQUEST 
BRANCH IF NO 


ADD SENSE ERROR TEST IF REQUIRED 
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SETSCAN 

4 

SKIP 4 SENSE BYTES TO COMMAND 

NDN0EXR1 

MSGTYPE 

X'83» 

CANCEL COMMAND? 


PATH 

X'01 , ,PATHSW 

SET PATH FOR CANCEL 


B 

NDSIBF10 



MSGTYPE 

X* 04* 

LUSTAT COMMAND 


IEDRELS 


START OUTPUT 


B 

NDSIBF10 



MSGTYPE 

X»C1' 

SHUTDOWN COMPLETE COMMAND 


HOLD 


STOP OUTPUT 


B 

NDSIBF10 



MSGTYPE 

9 

ALL OTHER DFC 


B 

NDSIBF10 

NO PROCESSING TO DO 

NDNOTDFC 

CLI 

1(R3),X'6D’ 

CLEAR KEY ? 


BNE 

NDSENTR 

NO, GO TEST FOR ENTER 


TERRSET 


FOR CLEAR MSGGEN - DO NOT FORWARD 


B 

NDSIBF10 


NDSENTR 

CLI 

1(R3),X'7D' 

ENTER KEY ? 


BNE 

NDSUKWN 

NO, GO TO UNKNOWN INPUT 


CLI 

4(R3),X'll* 

IS 4TH BYTE AN SBA (FORMATTED) 


BNE 

NDSDEL3 

NO, UNFORMATTED BRANCH 


MSGEDIT 

((R, ,, (6))), 

BLANK = N0 DEL AID 2(CUR) SBA 2(BUF) 


B 

NDSCODE 

ONLY DATA LEFT, GO PROCESS 

NDSDEL3 

MSGEDIT 

((R,,,(3))), 

BLANK=NO DELETE AID 2(CUR) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x DATA STREAM IS NOW USER DATA ONLY. X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NDSCODE INHDR THIS INHDR RESETS MSGTYPE 

CODE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS EXTENDED OPERATOR CONTROL COMMANDS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CLI 1(3), CV 

BNE NDSMTYP 

TERRSET 

B NDSMFWD 

NDSMTYP MSGTYPE X 
NDSMFWD FORWARD DEST=C f AOPCTLI• 

B NDSIMG10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS MESSAGE SWITCH M DEST / USER MESSAGE X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE M 

FORWARD DEST=XX,EOA=/ 

TERRSET 

B NDSIBF10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X PROCESS INQUIRY MESSAGE I 999999 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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MS©TYPE I 

FORWARD DEST = C*A3270I* 

B NDSIBF10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
* PROCESS NDS MESSAGE X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
MSGTYPE NDS 
FORWARD DEST=C*A3270I* 

B NDSIBF10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X PROCESS CLOSE MSG TO CLOSE APPLICATIONS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MSGTYPE CLOSE 
TERRSET 

FORWARD DEST=C*APPLS* 

B NDSIBF10 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X PROCESS OTHER MSGS * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


NDSUKWN 

NDSZERO 

x 

X 

NDSFMSG 

x 

NDSIBF10 


MSGTYPE 

PATH 

B 

IEDRELS 


X' 10 *»PATHSW 
NDSFMSG 


FORWARD DEST=C f DLQ' 


NDSIMG10 


INBUF 
IEDRH 
CLM 
BE 
IEDRELS 
INMSG 
CANCELMG 
INMSG 
CANCELMG 


UNIDENTIFIED MESSAGE 
SET UNKNOWN INPUT PATHSW 

RELEASE QUEUE ON ERROR TO AVOID 
MULTIPLE TIME DELAY ELEMENTS FOR 
THIS QUEUE. 

THIS MESSAGE IS TO BE CANCELED 
A FORWARD IS REQ'D IF ERRORMSG USED 

CK FOR CHG DIR 


RHIND=C+CHNGDIR) 

R15»1» S X* 08' 

NDSIMG10 NO 

RELEASE QUEUE 

PATH=(PATHSW,X*01*) CANCEL RECEIVED 

CANCEL THE MSG 


PATH=(PATHSW»X*10 *) 


UNKNOWN INPUT AID OR MSG TYPE 
CANCEL THE MSG 


ERRORMSG ,DATA-NDSMSG04*HEADER=NO 

INMSG , WHATS LEFT SHOULD BE 3270 SDLC 

CANCELMG X'430EC6F7FF* NOTE: BIT 31 UNDEF ERR NOT CANCELED 
MSGGEN X’0000080000*,NDSRSETN,RH=X*0380EO* 

ERRORMSG X*010405F7FF*,DATA=NDSMSG01,HEADER=NO 

ERRORMSG X»0200820000',DATA=NDSMSG02,HEADER=NO 

ERRORMSG X*4002400000* »DATA=NDSMSG03,HEADER=NO 

ERRORMSG X’FF7FF7FFOO*»DATA=NDXX,DEST=C*ERRQ*,EXIT=ERMSGXIT 

INEND 

OUTHDR BEGIN OUT HEADER PROCESSING 

PATH X*00',PATHSW RESET PATHSW TO IDENTIFY ERRORS 

SETSCAN 0 TEST FOR DATA IN BUFFER 
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LTR R15,R15 ZERO LENGTH BUFFER 

BP NDNOZERO BRANCH IF NO 

IEDSENSE AREA-NDSENSE GET THE SNA SENSE 

LTR R15,R15 TEST RETURN CODE 

BNZ NDSOMGIO NO SENSE AVAILABLE 

X ADD SNA SENSE ERROR TEST IF REQUIRED 

B NDSOMGIO BRANCH 

NDNOZERO LR R3,R15 SAVE ADDR OF DATA-1 FROM SETSCAN 

IEDRH RHIND=(XBB,XEB) TCAM CONTROLS BRACKETS 

LOCOPT TERMMODE,(5) REG 5 IS ADDR OF TERMMODE OPTION 

TM 0(5)»X*01' PRINTER ? 

BO NDSPRTR YES 

MSGEDIT ((I,X'F1F31140401D4013',SCAN)) 

NDSDESC MSGEDIT ((RA,,XL1*27*)) REMOVE ESC 

MSGEDIT C(RA>,XL1*37')) REMOVE ANY EOTS (IED MSGS USUALLY) 
MSGEDIT (CRA,X , 15 , ,X*35 , ,1)) 

B NDSOMGIO 

NDSPRTR MSGEDIT <(I,X*15',,)) INSERT NL AT START OF PRINTER MSGS 

B NDSDESC 

NDSOMGIO OUTMSG 

HOLD X'0004000013*,RELEASE 

HOLD X'0000006000',INTVL = 10 RETRY AFTER WAIT 
HOLD X*0000010600',INTVL = 03 HOLD ON NON RECOV ERRORS 
ERRORMSG X'FF7FF7FF00•,DATA=NDXX,DEST=C'ERRQ',EXIT=ERMSGXIT 
OUTEND 


NDXX 

DC 

AL1(25) 




DC 

C'ERROR= 

xxxxxxxx 


NDSMSG01 

DC 

AL1(42) 


MESSAGE LENGTH 


DC 

CN32-01 

TRANSMISSION 

ERROR, PLEASE RE-ENTER' 

NDSMSG02 

DC 

AL1(49) 


MESSAGE LENGTH 


DC 

CN32-02 

SYSTEM UNDER 

STRESS, PLEASE RE-ENTER LATER' 

NDSMSG03 

DC 

AL1(34) 


MESSAGE LENGTH 


DC 

CN32-03 

DESTINATION 

ERROR, RE-ENTER' 

NDSMSG04 

DC 

AL1(30) 


MESSAGE LENGTH 


DC 

CN32-04 

UNKNOWN INPUT, RE-ENTER* 

NDSRSETN 

DC 

AL1(08) 


SDLC 3277 CLEAR SCREEN 


DC 

X'F5C31140401D4013' 


NDSENSE 

DC 

XL4’00000000' 

SNA SENSE 


LTORG 




TITLE * 




TSO MESSAGE HANDLER' 


TSOMH STARTMH TSOMH=YES,STOP=YES,CONV=YES,LC=IN,DFC=FULL,LU=YES, X 
ALTMH=MHS3270,BEXIT=NDSBXIT 

INHDR 

CODE 

LOGON 

IEDHALT CHARS=C'LOGOFF',FLUSH=YES 
IEDHALT CHARS=X'939687968686',FLUSH=YES 
INBUF 
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»C'IKJ54011I TSO IS NOT ACTIVE' 

,C'IKJ54012A ENTER LOGON 

»C'IKJ54013I LOGON FAILED, INVALID COMMAND' 
,C'IKJ54014I TERMINAL IS NOT USABLE WITH TSO' 
,C'IKJ54015I TSO MSGS CANNOT REACH THIS TERMINAL' 
,C'IKJ54016I MAXIMUM USERS LOGGED ON, TRY LATER* 
,C'IKJ54017A TERMINAL ERROR, REENTER INPUT' 
»C'IKJ54018A MESSAGE TOO LONG, REENTER INPUT* 
,C'IKJ54020A MESSAGE LOST, REENTER INPUT' 

,X'06145AC915' 

,X'06145AC4I5' 

,X*06145A15' 


CUTOFF 3800 
CARRIAGE 
SPFSCRN 
SIMATTN 
INMSG 
ATTEN 
HANGUP 

MSGGEN X'1000000000 
MSGGEN X'8000000000 
MSGGEN X'4000000000 
MSGGEN X'2000000000 
MSGGEN X'0000200000 
MSGGEN X'0800000000 
MSGGEN X'0000004000 
MSGGEN X'0100000000 
MSGGEN X'0200000000 
MSGGEN X'0000800000 
MSGGEN X'0000400000 
MSGGEN X'0000120000 
MSGGEN 0,X'FF' 

INEND 

OUTHDR 

IEDRH RHIND=(*BB) 

OUTBUF 

SPFMCHK 

CODE 

OUTMSG 

ATTEN 

HANGUP 

MSGGEN X’0000800000',X'06145AC915' 

MSGGEN X'0000120000*,X'06145A15' 

MSGGEN X*0000200000',C'IKJ54015I TSO MSGS CANNOT REACH THIS TERMINAL* 
MSGGEN 0,X'FF» 

OUTEND 

LTORG 

TITLE ' ERRORMSG EXIT ROUTINE' 

R1 HAS ADDR OF HEADER BUFFER 
R5 HAS ADDR OF ERRORMSG TEXT 

THIS ROUTINE WILL SEND A MESSAGE TO THE ERRQ THAT CONTAINS 


* THE CONTENTS 
USING 

OF THE MER 
X, 15 

IN TRANSLATED FORMAT 


ERMSGXIT LR 

4,1 

PUT ADDR OF BUFFER 

IN 4 

L 

4,12(4) 

GET PLCB ADDR 


L 

4,92(4) 

GET SCB ADDR 


LA 

4,16(4) 

LOAD ADDR OF MER 


LA 

5,7(5) 

POINT TO 1ST POS TO 

PUT 

BAL 

6»CNVT 

CONVERT BYTE 1 
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ACF/TCAM SAMPLE 


CNVT 


HEXTRAN 

TITLE * 
BINDXHH 


NDSBXIT 


SVE 

ACF/TCAM 
TITLE ' 
NDS3278 


BAL 6,CNVT 

BAL 6,CNVT 

BAL 6,CNVT 

BR 14 

SR 7,7 

IC 7,0(4) 

LA 2,15 

NR 2,7 

SRL 7,4 

STC 7,0(5) 

STC 2,1(5) 

TR 0(1,5),HEXTRAN 

TR 1(1,5),HEXTRAN 

LA 4,1(4) 

LA 5,2(5) 

BR 6 

DC C'0123456789ABCDEF' 

LTORG 

CSECT 

USING *,15 

NI 5(4),256-X'20 * 

NI 6(4),256-X'CO' 

LA 15,2 
BR 14 
DROP 15 
CSECT 

USING *,15 
STM 0,15,SVE 
LR 12,15 
USING NDSBXIT,12 
DROP 15 
IEDLSCR 

LM 0,14,SVE 
BR 14 
DS 16 F 
LTORG 


CONVERT BYTE 2 
CONVERT BYTE 3 
CONVERT BYTE 4 
RETURN 
CLEAR R1 

INSERT CHAR TO TRANSLATE 
INSERT X'OF' 

PUT RIGHT 4 BITS IN REG 2 
SHIFT LEFT 4 BITS TO LOW ORDER 
STORE IN ERROR MSG 
STORE IN ERROR MSG 
TRANSLATE HEX DIGIT 
TRANSLATE HEX DIGIT 
BUMP POINTER BY 1 
BUMP POINTER BY 2 
RETURN 

HEX TRANSLATE TABLE 
BIND EXITS' 


NO BRACKETS 
SET FDX 

RESOLVE CONTENTION 
RETURN 


MOVE TTE SCREEN SIZE TO BIND 


BIND PARAMETERS 


BIND IMAGE TABLES' 

IEDBTAB CBI = (BI3767,EMU3790,BTCH3790,BI3770A» BI3270NB) 
IEDBENT COMPROT=XL2'3080',PRIPROT=X'B1',SECPROT=X*90', 

TSPROF=X'03',FMPROF=X'03’,TSUSAGE=XL6'000087F80000', 
FMTYPE=X* 01*, 
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LUPROF s X* 02',PRESERC=XL11'0000000000185018507F00* 

NDS8789 IEDBENT COMPROT=XL2'3080*,PRIPR0T=X'B1*,SECPROT=X*90*, 

TSPROF=X'03*,FMPROF=X*03*,TSUSAGE=XL6’000087C60000 *, 
FMTYPE=X'01 * , 

LUPROF=X* 01 * ,PRESERC=XL11'000000El00000000000000* 
ENTRY IEDTSOBO 

IEDTSOBO IEDBENT COMPROT=XL2»2000*,PRIPR0T=X*21*,SECPR0T=X*40», 

TSPROF=X*02',FMPROF=X*02*,TSUSAGE=XL6'010000000100», 
LUPROF=X* 00',PRESERC=XL11* 00',FMTYPE=X» 01 *, 

LOGON=C' LOGON *,USRDATA=C* * 

ENTRY IEDTSOB1 

1EDTSOB1 IEDBENT C0MPROT=XL2*3040»,PRIPR0T=X’A1*,SECPROT=X*90*, 

TSPROF=X* 03 *,FMPROF=X* 03 *,TSUSAGE=XL6*010085850100•, 
LUPRO F=X•01 *,PRESERC=XL11*0 0*,FMTYPE=X•01 *, 

LOGON=C* LOGON ',USRDATA=C* • 

ENTRY IEDTS0B2 

IEDTS0B2 IEDBENT COMPROT=XL2’3080*,PRIPR0T=X’B1’,SECPROT=X*BO*, 

TSPROF=X*03’,FMPROF=X*03*,TSUSAGE=XL6*000085850000', 
LUPROF=X* 02 *,FMTYPE=X* 01 *, 

PRESERC=XL11* 0 000000000185018507E00', 

LOGON=C* LOGON *,USRDATA=C* * 

ENTRY IEDTSOB8 


IEDTS0B8 IEDBENT COMPROT=XL2’3080»,PRIPR0T=X*B1*,SECPROT=X*90*, X 

TSPROF=X'03',FMPROF=X'03',TSUSAGE=XL6*000087F80000', X 

LUPROF=X* 02'»PRESERC=XL11'0000000000185018507F00 *, X 

FMTYPE=X’01», X 

LOGON=C* LOGON *,USRDATA=C* 

IEDBEND TSO=NO,TOTE=NO 
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ACF/TCAM 


USS3270 


USS TABLES 


PRINT NOGEN 
IEDUTAB GEN=NO 
IEDUVERB INITS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C’MHS3270' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C»BI3270NB» 

IEDUVERB TCAM»CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL , CMHS3270' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C'BI3270NB* 

IEDUVERB LOGON,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'TSOMH' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C'IEDTSOBO 1 

IEDUVERB TS0,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'TSOMH’ 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C , IEDTSOBO* 

IEDUVERB IMS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C'lMS' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C , BI3270NB' 

IEDUVERB CICS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C'CICS' 
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IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C’BI3270NB' 

IEDUVERB TERMS,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C'MHS3270' 

IEDUVERB LOGOFF,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C'TSOMH f 
IEDUVERB TERMI,CMD=TERMS 
IEDUPARM TMLU 
IEDUVAL 

IEDUVAL ,C’IMS’ 

IEDUVERB TERMC,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C’CICS' 

IEDUEND 

END 

X 

x 

x 

PRINT NOGEN 

USSNDS IEDUTAB GEN=NO 

IEDUVERB INITS,CMD=INITS 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL > C'NDSMH* 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C»NDS3278* 

IEDUVERB TCAM,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C’NDSMH' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C*NDS3278» 

IEDUVERB LOGON,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C’TSOMH' 

IEDUPARM INMODE 
IEDUVAL 
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IEDUVAL »C'IEDTS0B8' 

IEDUVERB TS0,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C*TSOMH' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C'IEDTS0B8' 

IEDUVERB IMS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C»IMS» 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C , NDS3278 I 
IEDUVERB CICS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C'CICS» 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C'NDS3278» 

IEDUVERB TERMS,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C»NDSMH» 

IEDUVERB LOGOFF,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C'TSOMH* 

IEDUVERB TERMI,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C’lMS* 

IEDUVERB TERMC,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C*CICS» 

IEDUEND 

END 

X 

X 

X 

PRINT NOGEN 

USS3767 IEDUTAB GEN=NO 

IEDUVERB INITS,CMD=INITS 
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IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUPARM 

IEDUVAL 

IEDUVAL 

IEDUVERB 

IEDUPARM 

IEDUVAL 


INLU 

»CMH3767 * 

INMODE 

> C*BI3767' 

TCAM,CMD=INITS 

INLU 

,C'MH3767' 

INMODE 

>C'BI3767 * 

LOGON,CMD=INITS,UDATLEN=14 
INUDATA 

INLU 

^’TSOMH' 

INMODE 

»C'IEDTSOB1* 

TS0,CMD=INITS,UDATLEN=14 

INUDATA 

INLU 

,C’TSOMH' 

INMODE 

rC'XEDTSOBl' 

IMS>CMD=INITS 
INLU 

,C'IMS' 

INMODE 

,C'BI3767 T 

CICS,CMD=INITS 

INLU 

^'CICS' 

INMODE 

,C*BI3767 f 
TERMS,CMD=TERMS 
TMLU 
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IEDUVAL ,C’MH3767» 

IEDUVERB LOGOFF,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C’TSOMH' 

IEDUVERB TERMI,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL , CIMS' 

IEDUVERB TERMC,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C’CICS* 

IEDUEND 

END 

X 

X 

x 

PRINT NOGEN 

USS3770 IEDUTAB GEN=NQ 

IEDUVERB INITS,CMD=INITS 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'SNAMH* 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C’BI3770A’ 

IEDUVERB TCAM,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C’SNAMH* 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C’BI3770A’ 

IEDUVERB LOGON,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 

IEDUVAL ,C'TSOMH' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C*IEDTSOB1' 

IEDUVERB TS0,CMD=INITS,UDATLEN=14 

IEDUPARM INUDATA 

IEDUVAL 

IEDUPARM INLU 

IEDUVAL 
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IEDUVAL ,C'TSOMH' 
IEDUPARM INMODE 
IEDUVAL 

IEDUVAL ,C'IEDTSOBl» 
IEDUVERB IMS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,O'IMS' 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL , CBI3770A' 
IEDUVERB CICS,CMD=INITS 
IEDUPARM INLU 
IEDUVAL 

IEDUVAL ,C’CICS* 

IEDUPARM INMODE 
IEDUVAL 

IEDUVAL »C'BI3770A' 
IEDUVERB TERMS,CMD=TERMS 
IEDUPARM TMLU 
IEDUVAL 

IEDUVAL ,C'SNAMH» 
IEDUVERB LOGOFF,CMD=TERMS 
IEDUPARM TMLU 
IEDUVAL 

IEDUVAL ,C'TSOMH' 
IEDUVERB TERMI,CMD=TERMS 
IEDUPARM TMLU 
IEDUVAL 

IEDUVAL ,C'IMS' 

IEDUVERB TERMC,CMD=TERMS 

IEDUPARM TMLU 

IEDUVAL 

IEDUVAL ,C*CICS* 

IEDUEND 

END 
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SAMPLE NCP SOURCE 


CHAPTER I * SAMPLE NCP SOURCE 


Two NCP samples ere included. The first NCP source is designed to 
operate on an IBM 3704. The larger NCP illustrates various mixes of 
device types. All supported line disciplines are illustrated and are 
based on actual experience and industry recommendations. The DOS/VS or 
the OS/VS JCL for the assembly of these NCP's are contained in the 
appropriate section of this guide. 

REFERENCES 


IBM 3704 And 3705 Communications Controllers 

Network Control Program/VS Generation And Utilities 
Guide And Reference Manual (for OS/VS And DOS/VS 
VTAM Users) 

Teleprocessing Preinstallation Guide For 

IBM 3704 And 3705 Communication Controllers 

IBM 3705 Advanced Communications Function for 

Network Control Program/VS Generation And Utilities 
Guide And Reference Manual 

DOS/VS VTAM System Programmers Guide 

ACF/VTAM System Programmers Guide (DOS) 

ACF/VTAM Installation Guide (DOS) 

ACF/VTAM Reference Summary (DOS) 

0S/VS1 VTAM System Programmer's Guide 

OS/VS VTAM Reference Summary 

0S/VS2 SVS VTAM System Programmer's Guide 

0S/VS2 VTAM System Programming Library*VTAM 

ACF/VTAM System Programmers Guide 

ACF/VTAM Installation Guide 


GC30-3008 

GC30-3020 

SC30-3116 

GC27-6957 

SC38-0268 

SC38-0270 

SX27-3022 

GC27-6996 

GX27-0034 

GC27-0049 

GC28-0688 

SC38-0258 

SC38-0269 
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ACF/VTAM Reference Summary 

OS/VS TCAM Concepts and Applications 

OS/VS TCAM System Programmer’s Guide 

OS/VS TCAM Macro Reference Guide 

OS/VS TCAM Application Programmer's Guide 

OS/VS TCAM Installation and Migration Guide 

OS/VS TCAM Program Reference Summary 

TCAM Migration To NCP and SNA Featuring IBM 3790 

ACF/TCAM General Information 

ACF/TCAM Concepts and Planning 

ACF/TCAM System Programmer's Guide 

ACF/TCAM Macro Reference Guide 

ACF/TCAM Application Programmer's Guide 

ACF/TCAM Installation and Migration Guide 

ACF/TCAM MSNF Program Reference Summary Supplement 

ACF/TCAM Program Reference Summary 


SX27-3021 

GC30-2049 

GC30-2051 

GC30-2052 

GC30-3036 

GC30-3039 

GY30-1024 

GG22-9100 

GC30-2050 

GC30-3049 

SC30-3117 

SC30-3118 

SC30-3119 

SC30-3121 

LD21-0003 

LY30-3037 
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Z-l * SAMPLE NCP FOR 3704 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X NCP 5 ONLY, NOT SUPPORTED BY ACF/NCP/VS X 
X SOURCE FOR NCP GENERATION (ALL VTAM LEVELS AND TCAM 10) X 
X SUPPORTS BATCH AND INQUIRY FOR SDLC PHYSICAL UNITS X 
x THIS GENERATION IS FOR IBM 3704 X 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X PCCU SPECIFICATIONS - OS/VS (VTAM ONLY) X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPSTART PCCU CUADDR=07F, 3704 CONTROL UNIT ADDRESS X 

AUTODMP=NO, PROMPT BEFORE DUMPING NCP X 

AUTOIPL=YES, AUTOIPL AND RESTART X 

DUMPDS=NCPDUMP, AUTODUMP REQUESTED X 

INITEST=YES NCP INITIALIZATION TEST 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X PCCU SPECIFICATIONS FOR DOS/VS (VTAM ONLY) X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPSTART PCCU CUADDR=07F, 3704 CONTROL UNIT ADDRESS X 

AUTODMP=NO, PROMPT WHEN NCP FAILS X 

AUTOIPL=YES, NO AUTOIPL AND RESTART X 

DUMPDS=SYS007, DS FOR DUMP OPTION X 

INITEST=NO, NO INITIAL TEST X 

NCPLUB=SYS008 LOAD MODULE NAME 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X BUILD MACRO SPECIFICATIONS FOR OS * 

X x 

X x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPBUILD BUILD MAXSUBA=3, MUST BE SAME AS IN VTAM STR DEF X 

LOADLIB=NCPLOAD, LIBRARY FOR NCP LOAD MODULE X 

OBJLIB=NCPBAT, LIBRARY FOR ASSEMBLER OUTPUTS X 

LESIZE=320, REGION SIZE FOR LINK-EDIT X 

TYPSYS=OS, OS USED FOR STAGE 2 X 

QUALIFY=SYS1> 1ST LEVEL QUALIFIER X 

UNIT=SYSDA, DATA SET FOR ASSEMBLY X 

MEMSIZE=64, 3704 STORAGE SIZE IS 64K BYTES X 

TYPGEN=NCP» NCP ONLY X 

ABEND=YES» ABEND FACILITY INCLUDED X 

ANS=YES, AUTOMATIC NETWORK SHUTDOWN (DEFAULT)X 

ASMXREF=NO, NC ASSEMBLER CROSS-REFERENCE X 

BFRS=64, NCP BUFFER SIZE X 

CHANTYP=TYPE1, PRIMARY CHANNEL ADAPTER X 

ERASE=NO» DO NOT ERASE BUFFERS (DEFAULT) X 

ENABLT0=2.2, LEASED LINE ONLY (DEFAULT) X 

JOBCARD=MULTI, JOBCARDS PROVIDED BY NCP GEN X 

MODEL=3704, X 

NEWNAME=NCPBAT> NAME OF THIS LOAD MODULE X 

0LT=YES» ONLINE TEST AVAILABLE(DEFAULT) X 

SL0D0WN=12, SLOWDOWN WHEN 12X OF BUFFERS AVAIL X 

SUBAREA=3, SUBAREA ADDRESS =3 X 

TRACE=(YES»10) 10 ADDRESS-TRACE ENTRIES(DEFAULT) 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKX 


X X 

X BUILD MACRO SPECIFICATIONS DOS X 

* x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPBUILD BUILD MAXSUBA=3, MUST BE SAME AS IN VTAM STR DEF X 

TYPSYS=DOS» DOS USED FOR STAGE 2 X 

MEMSIZE=64, 3704 STORAGE SIZE IS 64K BYTES X 

TYPGEN=NCP» NCP ONLY X 

ABEND=YES. ABEND FACILITY INCLUDED X 

ANS=YES, AUTOMATIC NETWORK SHUTDOWN(DEFAULT) X 

ASMXREF=NO» NO ASSEMBLER CROSS-REFERENCE(DEFAULTX 

BFRS=64, NCP BUFFER SIZE X 

CHANTYP=TYPE1 , PRIMARY CHANNEL ADAPTER X 

ERASE=NO, DO NOT ERASE BUFFERS (DEFAULT) X 

ENABLT0=2.2, LEASED LINE ONLY(DEFAULT) X 

JOBCARD=MULTI> JOBCARDS PROVIDED BY NCP GEN X 

MODEL=3704, X 

NEWNAME=NCPBAT, NAME OF THIS LOAD MODULE X 

0LT=YES, ONLINE TEST AVAILABLE (DEFAULT) X 

SL0D0WN=12, SLOWDOWN WHEN 12X OF BUFFERS AVAIL X 

SUBAREA=3, SUBAREA ADDRESS =3 X 

TRACE=(YES»10) 10 ADDRESS-TRACE ENTRIES(DEFAULT) 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X SYSCNTRL OPTIONS FOR VTAM OR TCAM x 
x x 
x NOTE THAT OPERATOR CONTROLS ARE NOT INCLUDED. x 
x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPSYSC SYSCNTRL OPTIONS=(MODE, 

RCNTRL,RCOND,RECMD,RIMM,ENDCALL, 

BHSASSC) 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X HOST MACRO SPECIFICATIONS OS VTAM X 

X UNITSZ TIMES MAXBFRU MINUS BFRPAD EQUALS MAX MESSAGE SIZE X 

X FOR INBOUND MESSAGES X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPHOST HOST INBFRS=5, INITIAL 3704 ALLOCATION X 

MAXBFRU=4, VTAM BUFFER UNIT ALLOCATION X 

UNITSZ=84, X 

BFRPAD=28» VTAM(0S=28, D0S=15, ACF=0), EXTM=2 X 

DELAY=.2, .2 SECOND ATTENTION DELAY X 

STATMOD=YES» YES VTAM, NO FOR EXTM X 


TIMEOUT=(120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X HOST MACRO SPECIFICATIONS DOS/VS X 
X DOS VTAM REQUIRES BFRPAD=15 X 
X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


NCPHOST HOST INBFRS=5, 
MAXBFRU=6, 
UNITSZ=88, 
BFRPAD=15, 
DELAY=.5, 
STATMODsYES, 
TIMEOUT=C120.0) 


INITIAL 3704 ALLOCATION X 
VTAM BUFFER UNIT ALLOCATION X 
VTAM BUFFER SIZE MUST BE MULT OF 8 X 
DOS VTAM 15, EXTM=2 X 
.5 SECOND ATTENTION DELAY X 
YES FOR DOS VTAM, NO FOR EXTM X 


AUTO SHUT DOWN IF NO RESP IN 120SEC 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X CSB MACRO SPECIFICATIONS X 
X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


NCPCSB CSB SPEED=(134), 
MODSO, 
TYPE=TYPE1 


BUS MACH CLOCK 
SCANNER ADDRESS 000 TO OIF 
TYPE 1 COMM SCANNER (DEFAULT 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXX 


X X 
X SPECIFICATIONS FOR SDLC LEASED LINES X 
X GROUP MACRO SPECIFICATIONS X 
X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SDLCGP1 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK 

DIAL=NO, REQUIRED FOR LEASED LINE 

REPLYTO=l.0> USE DEFAULT 

TYPE=NCP NCP ONLY 



SDLCI LINE ADDRESS S (000>001)> 
DUPLEX=FULL, 
SPEED=1200, 
NRZI=YES, 
NEWSYNC=NO, 
CLOCKNG=EXT, 
POLLED=YES, 
RETRIES=(5»10*4) 


TRANSMIT AND RECEIVE ADDRESSES X 

MODEM IS STRAPPED FOR FULL DUPLEX X 
SPEED MAY BE HIGHER(SEE NOTES) X 

SPECIFY YES ONLY IF REQUIRED X 

CHECK MODEM REQUIREMENTS X 

MODEM PROVIDES CLOCKING X 

X 

5 RETRIES PER RECOVERY SEQUENCE 
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SAMPLE NCP FOR 3704 


PAGE 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 
X SERVICE ORDER FOR SDLC LINK X 
X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SERVICE ORDER = (CL3790) 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

X 

X 


PU MACRO SPECIFICATION FOR 3790 LINK 


X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


CL3790 PU 


ADDR=C1, 
MAXDATA=265, 
PUTYPE=2, 
PACING=(1,1), 
VPACING=(2»1)» 
PASSLIM=7 1 
MAX0UT=7, 
ISTATUS=INACTIVE 


PU ADDRESS = A (EBCDIC) 

MAXIMUM AMOUNT OF DATA 

MAX FOR 3790 
TWICE PACING VALUE 
EQUAL TO MAXOUT 

MAX PATH INFO UNITS BEFORE RES 
ACTIVATE VIA OPERATOR 


X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x X 
X LOGICAL UNIT SPECIFICATIONS X 
x x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


INBATCH2 LU 
INQDEM12 LU 
INQDEM13 LU 
INQDEM14 LU 


LOCADDR=l, 

ISTATUS=ACTIVE 

L0CADDR=2, 

ISTATUS=ACTIVE 

L0CADDR=3, 

ISTATUS=ACTIVE 

L0CADDR=4 


IN REQ'D FOR 1ST LU 


X 

X 

X 
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SAMPLE NCP FOR 3704 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X SERVICE ORDER FOR 3600'S FOR SSS TRANSFER ONLY AND FOR X 
X OPERATIONAL USE. X 
X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SERVICE ORDER=(CL3600,C36SS) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X PU MACRO SPECIFICATION FOR 3600 LINK X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CL3600 PU ADDR=C1, PU ADDRESS = A (EBCDIl) X 

PUTYPE=2, X 

MAXDATA=80 , MATCH BUFFER VALUE IN 3601 X 

MAX0UT=3, MAX PATH INFO UNITS BEFORE RES X 

PASSLIM=1> X 

PACING=(0), BEST FOR INQUIRY RESPONSE X 

VPACING=(0>, CHANGE IF NCP SLOWDOWN X 

ISTATUS=INACTIVE ACTIVATE VIA OPERATOR 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X LOGICAL UNIT SPECIFICATIONS * 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


FALUA1 

LU 

LOCADDR=l,ISTATUS=INACTIVE 

FALUA2 

LU 

L0CADDR=2, 

1STATUS=ACTIVE 

FALUA3 

LU 

L0CADDR=3, 

ISTATUS=ACTIVE 

FALUA4 

LU 

L0CADDR=4, 

ISTATUS s ACTIVE 
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SAMPLE NCP FOR 3704 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X PU MACRO SPECIFICATION FOR 3600 FOR SSS * 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


CL36SS PU ADDR=C1, PU ADDRESS = A (EBCDIC) X 

PUTYPE=2» X 

MAXDATA=265, MAXIMUM AMOUNT OF DATA X 

MAX0UT=3, MAX PATH INFO UNITS BEFORE RES X 

PASSLIM=1, X 

ISTATUS=INACTIVE ACTIVATE VIA OPERATOR 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X X 

X LOGICAL UNIT SPECIFICATIONS X 

X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FALUA1SS LU LOCADDR=l, FA REQ'D FOR 1ST LU 

PACING=(3,1), 

VPACING=(4,1), IF NO SLOWDOWN, INCREASE VPACING 

ISTATUS=ACTIVE 
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SAMPLE NCP FOR 3704 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
x X 
X SERVICE ORDER FOR SDLC 3650 (FULL DUPLEX) X 
X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SERVICE 0RDER=(STORED 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

x PU MACRO SPECIFICATION FOR 3650 x 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

STORE1 PU ADDR=C4, PU ADDRESS = D (EBCDIC) X 

CUTYPE=SDLC1, X 

MAX0UT=7, MAX PATH INFO UNITS BEFORE RES X 

MAXDATA=265» 6 BYTE TH, 3 BYTE RH, 256 BYTE RU X 

PASSLIM=5, LIMIT IS 5 PIUS PER INDUSTRY SPEC X 

ISTATUS=INACTIVE» ACTIVATE VIA OPERATOR X 

PACING=(1>1)» X 

VPACING=C3,1) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X X 

x LOGICAL UNIT SPECIFICATIONS * 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
QEST0RE1 LU LOCADDR=l > REQ’D FOR 1ST LU 

PACING=(7,1), IMPROVES LOADING 3651 

VPACING=(4,1)» DECREASE IF SLOWDOWN WITH SSS 

1STATUS=ACTIVE 
QECREDIT LU L0CADDR=2, 

PACING=(0), 

VPACING=(0) 

QE365311 LU L0CADDR=3 

QE365312 LU L0CADDR=4 

QE365313 LU L0CADDR=5 

QE365314 LU LOCADDR=6 

QE365315 LU L0CADDR=7 

QE327511 LU L0CADDR=8 

QE327512 LU L0CADDR=9,PACING=(2,1) 

QE327513 LU LOCADDR=10,PACING=(2,1) 

QE327514 LU L0CADDR=11,PACING=(2,1) 

QE327515 LU L0CADDR=12,PACING=C2,1) 

QEINT1 LU L0CADDR=13,PACING=(2,1) 

QEINT2 LU LOCADDR-14 
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SAMPLE NCP FOR 3704 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X GENEND DELIMITER * 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

GENEND 

END 

/X 
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SAMPLE NCR FOR 3705 


7..Z '• SAMPLE HCP FOR 3705 ( MULTI-PURPOSE ) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X SOURCE FOR NCP 5.0 OR ACF/NCP/VS X 

* SUPPORTS BASIC, SDLC AND REMOTE 370X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PCCU SPECIFICATIONS - OS/VS (VTAM) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPSTART PCCU CUADDR=OBF, 3705 CONTROL UNIT ADDRESS X 

AUTODMP=NO, PROMPT BEFORE DUMPING NCP X 

AUTOSYN=NO, PROMPT OPERATOR IF NCP LOADED X 

MAXDATA=3000, ALLOW FOR 3270 BSC X 

CONFGDS=NCP001, VTAM 2 ONLY X 

AUTOIPL=YES, AUTOIPL AND RESTART X 

DUMPDS=NCPDUMP, AUTODUMP REQUESTED X 

INITEST=YES NCP INITIALIZATION TEST 

PCCU SPECIFICATIONS FOR DOS/VS(VTAM> 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPSTART PCCU CUADDR=OBF, 3/05 CONTROL UNIT ADDRESS X 

AUTODMP=NO, PROMPT WHEN NCP FAILS X 

AUTOSYN=YES, NO PROMPT IF ALREADY LOADED X 

MAXDATA=3000, ALLOW FOR 3270 BSC X 

AUTOIPL=YES, AUTOIPL AND RESTART X 

DUMPDS=SYS007, DS FOR DUMP OPTION X 

INITEST=NO, NO INITIAL TEST X 

NCPLUB=SYS008 LOAD MODULE NAME 

NOTE: MAXDATA must be less than MAXBFRU X UNITSZ - BFRPAD. It must be 
be greater than the largest PIU passed through the NCP. 
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SAMPLE NCP FOR 3705 


PCCU SPECIFICATIONS FOR ACF/VTAM OS/VS 


x PCCU SPECIFICATIONS - ACF/VTAM OS/VS X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

NCPACF PCCU CUADDR=418, 3705 CONTROL UNIT ADDRESS X 

MAXDATA-3000* MAX OUTBOUND PIU X 

AUTOSYN=YES, NO PROMPT IF ALREADY LOADED X 

AUTODMP=NO» PROMPT BEFORE DUMPING NCP X 

AUTOIPL=YES, AUTOIPL AND RESTART NOT AUTO X 

DUMPDS=NCPDUMP, AUTODUMP REQUESTED X 

SU8AREA=13, SAME AS HOST MACRO X 

INITEST=NO NCP INITIALIZATION TEST 


PCCU SPECIFICATIONS FOR ACF/VTAM DOS/VS 


X PCCU SPECIFICATIONS - ACF/VTAM DOS/VS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


NCPACF PCCU CUADDR=070, 3705 CONTROL UNIT ADDRESS X 

AUTODMP=NO, PROMPT WHEN NCP FAILS X 

MAXDATA=3000, ALLOW FOR 3270 BSC X 

AUTOIPL=YES» AUTOIPL AND RESTART X 

DUMPDS=SYS007, DS FOR DUMP OPTION X 

INITEST=NO, NO INITIAL TEST X 

AUTOSYN=YES» NO PROMPT IF ALREADY LOADED X 

SUBAREA-12> SAME AS HOST MACRO X 

NCPLUB=SYS008 LOAD MODULE NAME 


NOTE*- MAXDATA must be less than MAXBFRU X UNITSZ - BFRPAD. It must be 
be greater than the largest PIU passed through the NCP. 

If using IBM 3278 Model 4, MAXDATA should be 4000. 
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SAMPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS FOR OS/VS 

XXXXXXXXKXKXXXXXKXXXXXSXXXXXXXXXXXXKKKXXXXXXXKXXXMXXXXXXXXXXXXKXXXXXXXX 


NCPBUILD BUILD MAXSUBA=15, MUST BE SAME AS IN VTAM STR DEF X 

10ADIIB=NCPL0AD» LIBRARY FOR NCP LOAD MODULE X 

OBJLIB=NCPOBJ» LIBRARY FOR ASSEMBLER OUTPUTS X 

LESIZE-320* REGION SIZE FOR LINK-EDIT X 

TYPSYS=OS, OS USED FOR STAGE 2 X 

QUALIFY=SYS1, 1ST LEVEL QUALIFIER X 

UNIT=SYSDA» DATA SET FOR ASSEMBLY X 

MEMSIZE=112, 3705 STORAGE SIZE IS 112K BYTES X 

TYPGEN=NCP-LR* NCP WITH REMOTE SUPPORT X 

ABEND=YES, ABEND FACILITY INCLUDED X 

ANS=YES» AUTOMATIC NETWORK SHUTDOWN X 

NOTE* Should be yes for PEP generation. 

ASMXREF=NO» NO ASSEMBLER CROSS-REFERENCE 

BFRS=64» NCP BUFFER SIZE 

NOTE: Note channel type 

CHANTYP=TYPE2, PRIMARY CHANNEL ADAPTER X 

CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX 
CSMHDRC-40E3C5E7E3405C5C* 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=C3D9C9E3E2C9E35A40E385819440F040 , CRITSIT MESG X 
CSMSGC=6040C1D5E240828587A4954B, CRITST MESG EXTRA TEXT X 
CUID=» NO SWITCHED BSC ID SEQUENCE DEVICES X 

ERASE=NO» DO NOT ERASE BUFFERS X 

ENABLTO=, NO SWITCHWD BACK_UP SUPPORT X 

ITEXTTO=60, TEXT TIME OUT PROVIDED BY BUILD MACRX 

JOBCARD=MULTI, JOBCARDS PROVIDED BY NCP GEN X 

MODEL=3705» X 

MTARTO=30, X 

MTARTRY=10» X 

NEWNAME=NCPSDL» NAME OF THIS LOAD MODULE X 

PNLTEST=YES» PANEL TEST INCLUDED X 

OLT=YES» ONLINE TEST AVAILABLE X 

SL0D0WN=12> SLOWDOWN WHEN 12% OF BUFFERS AVAIL X 

SUBAREA-3* SUBAREA ADDRESS =3 X 

TIME=* NO TIME ON STAGE 2 EXEC CARDS X 

TRACE=CYES,64), 64 ADDRESS-TRACE ENTRIES X 

UT1=SYSUT1, PREALLOCATED WORK SPACE X 

UT2=SYSUT2, PREALLOCATED WORK SPACE X 

UT3=SYSUT3, PREALLOCATED WORK SPACE X 

XBREAK=4* 4 BREAK CHARS. FOR 300 BPS X 

XITB=NO NO ITB SUPPORTED BSC UNITS 
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SAMPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS DOS/VS 

XXXXXXXXXXXXXXKXXXXXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXKXXXXXKXXXXXXXXXX 


NCPBUILD BUILD MAXSUBA=15, MUST BE SAME AS IN VTAM STR DEF X 

TYPSYS=DOS, DOS USED FOR STAGE 2 X 

MEMSIZE=112> 3705 STORAGE SIZE IS 112K BYTES X 

TYPGEN=NCP-LR» NCP WITH REMOTE SUPPORT X 

ABEND=YES, ABEND FACILITY INCLUDED X 

ANS=YES> AUTOMATIC NETWORK SHUTDOWN X 


NOTE: Should be yes for PEP generation. 

ASMXREF=NO» NO ASSEMBLER CROSS-REFERENCE 

BFRS=64, NCP BUFFER SIZE 

NOTE: Note channel type 

CA=TYPE2, NEW FOR NCP5 

CHANTYP=TYPE2, PRIMARY CHANNEL ADAPTER 

CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX 


CSMHDRC=40E3C5E7E3405C5C, 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=C3D9C9E3E2C9E35A40E385819440F040, CRITSIT MESG X 
CSMSGC=6040C1D5E240828587A4954B, CRITST MESG EXTRA TEXT X 
CUID=» NO SWITCHED BSC ID SEQUENCE DEVICES X 
ERASE-NO> DO NOT ERASE BUFFERS X 
ENABLTO=> NO MANUAL SWITCHED BACKUP X 
ITEXTTO=60, TEXT TIME OUT PROVIDED BY BUILD MACRX 
JOBCARD=MULTI , JOBCARDS PROVIDED BY NCP GEN X 
MODEL=3705, X 
MTARTO=30, X 
MTARTRY=10, X 
NEWNAME=NCP500, NAME OF THIS LOAD MODULE X 
PNLTEST=YES» PANEL TEST INCLUDED X 
OLT=YES» ONLINE TEST AVAILABLE X 
SL0D0WN=12, SLOWDOWN WHEN 12% OF BUFFERS AVAIL X 
SUBAREA=3, SUBAREA ADDRESS =3 X 
TIME=» NO TIME ON STAGE 2 EXEC CARDS X 
TRACE=CYES,64), 64 ADDRESS-TRACE ENTRIES X 
XBREAK=4, 4 BREAK CHARS FOR 300 BPS X 
XITB=NO NO ITB SUPPORTED BSC UNITS 
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SAMPLE NCP FOR 3705 


BUILD MACRO SPECIFICATIONS FOR OS/VS (TWO CHANNELS) 


* X 

* BUILD MACRO SPECIFICATIONS - TWO TYPE 4 CHANNELS X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

HONEDEV BUILD TYPGEN=NCP> X 

MAXSUBA=31» X 

PARTIAL=NO, X 

MAXSSCP=2, BOTH HOSTS ACTIVE X 

MEMSIZE=256, X 

MODEL=3705-2, X 

NEWNAME=NCPACFI» X 

CA=(TYPE4,TYPE4-0), X 

NCPCA=(ACTIVE,ACTIVE), X 

LTRACE=2, X 

TYPSYS=OS, X 

LESIZE=200, X 

QUALIFY=NCP6, X 

LOADLIB=NCPLIB, X 

OBJLIB=NCPACFI, X 

ABEND=YES, ABEND FACILITY INCLUDED X 

ANS=YES, AUTOMATIC NETWORK SHUTDOWN X 

NOTE: Should be yes for PEP generation. 


ASMXREF=NO, NO ASSEMBLER CROSS-REFERENCE 

BFRS=64, NCP BUFFER SIZE 

CSMHDR=27F5C711C3F0405C40C8C4D9405C, 3270 CRITSIT HEADERX 


CSMHDRC=40E3C5E7E3405C5C, 3270 CRITST HEADER EXTRA TEXT X 
CSMSG=C3D9C9E3E2C9E35A40E385819440F040, CRITSIT MESG X 
CSMSGC=6040ClD5E240828587A4954B, CRITST MESG EXTRA TEXT X 
ERASE=NO, DO NOT ERASE BUFFERS X 
JOBCARD=MULTI, JOBCARDS PROVIDED BY NCP GEN X 
OLT=YES, ONLINE TEST AVAILABLE X 
SL0D0WN=12, SLOWDOWN WHEN 12% OF BUFFERS AVAIL X 
SUBAREA=21, X 
TIME=, NO TIME ON STAGE 2 EXEC CARDS X 
TRACE=(YES,64), 64 ADDRESS-TRACE ENTRIES X 
UNIT=VIO, DATA SET FOR ASSEMBLY AND LINK EDIT X 
XITB=NO NO ITB SUPPORTED BSC UNITS 
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SAMPLE NCP FOR 3705 


SYSCNTRL OPTIONS FOR VTAM AND TCAM 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

NCPSYSC SYSCNTRL OPTIONS=(MODE, 

RCNTRL,RCOND,RECMD,RIMM,ENDCALL,SSPAUSE, 

BHSASSC,NAKLIM,SESSION,XMTLMT) 

NOTE: if the NCP does not contain Start/Stop or BSC devices, SYSCNTRL 

options Mill not be included in the ACF/NCP generation even if 
included in the source deck. 


HOST MACRO SPECIFICATIONS OS/VS (VTAM) 


X OS/VS VTAM REQUIRES BFRPAD=28, STATM0D=YE5, SUBAREA =1 * 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXX 

NCPHOST HOST INBFRS=4, INITIAL 3705 ALLOCATION X 

MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION X 

UNITSZ=152, OS VTAM BUFFER SIZE X 

BFRPAD=28, OS VTAM 28, DOS VTAM 15,ETM 2 X 

DELAY=.l, .1 SECOND ATTENTION DELAY -OS X 

STATMOD=YES, YES OS AND DOS VTAM, NO EXTM X 


TIMEOUT=(120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 


HOST MACRO SPECIFICATIONS DOS/VS (VTAM) 


x DOS VTAM REQUIRES BFRPAD=15, STATM0D=YES, SUBAREA =1 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPHOST HOST INBFRS=4, INITIAL 3705 ALLOCATION X 

MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION X 

UNITSZ=88, VTAM BUFFER SIZE MUST BE MULT OF 8 X 

BFRPAD=15, OS VTAM 28, DOS VTAM 15 X 

DELAY=.l, .1 SECOND ATTENTION DELAY X 

STATMOD=YES, NO FOR EXTM X 


TIMEOUT 2 (120.0) AUTO SHUT DOWN IF NO RESP IN 120SEC 

NOTE: UNITSZ times MAXBFRU minus BFRPAD equals MAX message size 

for HOST inbound messages. 
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SAMPLE NCP FOR 3705 


HOST MACRO SPECIFICATIONS ACF/TCAM OR TCAM 10 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

* HOST MACRO SPECIFICATIONS OS ACF/TCAM OR TCAM 10 X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NCPH0ST3 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 

MAXBFRU=20» TCAM BUFFER UNIT ALLOCATION X 

SUBAREA=14, X 

UNITSZ=156 , MUST MATCH MCP UNITSZ X 

BFRPAD=17 , X 

DELAY 2 .1> .1 SECOND ATTENTION DELAY X 

STATMOD=YES» X 


TIMEOUT=C180) AUTO SHUT DOWN IF NO RESP IN 180SEC 


HOST MACRO SPECIFICATIONS ACF/VTAM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

x HOST MACRO SPECIFICATIONS OS ACF/VTAM * 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NCPH0ST4 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 

MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION X 

SUBAREA=13, X 

UNITSZ=152, X 

BFRPAD=0, X 

DELAY 2 .1/ .1 SECOND ATTENTION DELAY -OS X 

STATMOD=YES» X 


TIMEOUT 2 (180) AUTO SHUT DOWN IF NO RESP IN 180SEC 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X HOST MACRO SPECIFICATIONS DOS ACF/VTAM X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NCPH0ST4 HOST INBFRS=8, INITIAL 3705 ALLOCATION X 

MAXBFRU=20, VTAM BUFFER UNIT ALLOCATION X 

SUBAREA=12, X 

UNITSZ=136, X 
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SAMPLE NCP FOR 3705 


BFRPAD=0» 

DELAY=.l, .1 SECOND ATTENTION DELAY -OS 

STATMOD=YES» 

TIMEOUT=(180) AUTO SHUT DOWN IF NO RESP IN 180SEC 


PATH MACRO SPECIFICATIONS ACF 

NCPPATH4 PATH ADJSUB=14, 
DESTSUB=9 


CSB MACRO SPECIFICATIONS 


NCPCSB CSB SPEED=(134,300,1200), BUS MACH CLOCKS 

MOD=0, SCANNER ADDRESS 020 TO ft5F 

TYPE=TYPE2 TYPE 2 COMM SCANNER 


LUPOOL MACRO SPECIFICATION 

* (MUST BE SPECIFIED BEFORE FIRST GROUP MACRO)* 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

POOL1 LUPOOL NUMBER=120 ALLOW FOR LARGE POOL 
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SAMPLE NCP FOR 3705 


MTA SUPPORT 


* MTALCST MACROS - MULTIPLE TERMINAL ACCESS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
C2741C0R MTALCST GR0UP=G2741,CL0CKNG=INT,C0DE=C0R, X 

LCTYPE=2741,SPEED=134 


X MTALIST MACRO X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MTALIST1 MTALIST LCTYPE=(2741) 


X MTATABL MACROS X 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
T3767C0R MTATABL LCST=(C2741C0R),LCTYPE=2741,C0DE=C0R 


x MTA GROUP x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
MTAGROUP GROUP CRETRY=6,DIAL=YES,LNCTL=SS, X 

TYPE=NCP 


X START-STOP LINE SPECIFICATIONS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
LNMTA LINE ADDRESS=025,SPEED=134,MTALIST=MTALIST1,POLLED=NO, 
DUPLEX=FULL,CALL=IN,RETRIES=(2,1,2),TRANSFR=2, 

MONITOR=YES,DIRECTN=INOUT, 

LOGAPPL=NETSOL,LOGTAB=TABLE01 

MTA TERMINAL TERM=MTA»CTERM=YES> ATTN=ENABLED» X 

FEATURE=CATTN,BREAK,TOSUPPR),CRDLAY=YES 

VMTA VTERM LCST=C2741C0R,BUFLIM=2 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SAMPLE NCP FOR 3705 


2740 MULTI-DROP LINE 


XXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


EUR6RP GROUP CDATA=N0,CRETRY=5,DIRECTN=IN0UT,ENDTRNS=E0T, 

CLOCKNG=EXT,DUPLEX=HALF,LNCTL=SS,SPEED=1200,TYPE=NCP, 

LOGAPPL=NETSOL*LOGTAB=TABLE01 

EURLINE LINE ADDRESS=026,CODE=EBCD,SERVLIM=1,POLLED=YES, 

RETRIES=(8,6,2), CUT0FF=1, SESSIONS, CRITSIT=YES, 
SERVPRI=OLD,TERM=2740-2,XMITLIM=1,FEATURE 5 (CHECK), 


xxx This POLIMIT will reduce system overhead but increase response time. 


POLIMIT=(20,QUEUE) 


SERVICE 0RDER=(L0N,B0N) 


LON TERMINAL ADDR=C1,P0LL=C1 

BON TERMINAL ADDR=C2,P0LL=C2 
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SAMPLE NCP FOR 3705 


3767 SWITCHED LINE AT 300 BAUD START/STOP 

XXXXXKXXXXXKXKXKXXXKXXKXXMKXXXXKXKXXXXKKKXXKKXKXXKXKXXXXXXXKXXXXKXXXXXX 

G3767 GROUP CRETRY=6» RETRY 6 TIMES X 

DIAL=YES, SWITCHED LINE X 

CRDLAY=YES» REQUIRED X 

CRRATE S 5» REQUIRED FOR 300 BPS X 

LINESIZ=130, X 

M0NIT0R=YES, X 

REPLYT0=N0NE, NO REPLY TIME OUT X 

TEXTTO=N0NE, NO TEXT TIME OUT X 

LNCTL=SS START STOP LINE TYPE 

L3767 LINE ADDRESS=027, LINE ADDRESS X 

SPEED=300, LINE SPEED 300 BPS X 

CALL=IN» CALL IN ONLY X 

DIRECTN=INOUT» X 

TYPE=NCP, NCP ONLY X 

CLOCKNG=INT, INTERNAL CLOCKING X 

CODE=EBCD, EBCD CODE CONVERSION X 

DUPLEX=FULL MODEM STRAPPING IS FULL DUPLEX 

T3767 TERMINAL TERM=27A1, 3767 DEFINED AS 27*1 X 

UTERM=T3767A, LOGICAL TERMINAL NAME X 

ATTN=ENABLED» ENABLE ATTENTION FUNCTION X 

LOGAPPL=NETSOL, X 

LOGTAB=TABLE01, X 

FEATURE=CATTN,BREAK,TOSUPPR), X 

CTERM=YES LOGICAL CONNECTION 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SAMPLE NCP FOR 3705 


2741 SWITCHED LINE AT 134 BAUD START/STOP 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

G2741 GROUP CRETRY=6, RETRY 6 TIMES X 

CRDLAY=YES> X 

DIAL=YES, SWITCHED LINE X 

MONITOR=YES, X 

REPLYTO=NONE, X 

TEXTTO=NONE, X 

LNCTL=SS START STOP LINE TYPE 

L2741 LINE ADDRESS=028, LINE ADDRESS X 

SPEED=134, LINE SPEED 134 BPS X 

TYPE=NCP» X 

MONITOR=YES, X 

DIRECTN=INOUT, X 

CALL-IN, CALL IN ONLY X 

CLOCKNG=INT, INTERNAL CLOCKING X 

C0DE=C0R2, C0R2 CODE CONVERSION X 

DUPLEX=FULL MODEM STRAPPING IS FULL DUPLEX 

T2741 TERMINAL TERM=2741, 2741 DEFINED AS 2741 X 

UTERM=T2741A, LOGICAL TERMINAL NAME X 

ATTN=ENABLED, ENABLE ATTENTION FUNCTION X 

LOGAPPL=NETSOL, X 

LOGTAB=TABLE01, X 

FEATURE=(ATTN,BREAK,TOSUPPR), X 

CTERM=YES LOGICAL CONNECTION 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 


PAGE 7-24 


SNA PRODUCT INSTALLATION GUIDE 


G320-6028 (2/79) 



SAMPLE NCP FOR 3705 


SWITCHED TUX GROUP 


KKXXXKXXKXKKXXXKXKKKKKXXXKXXXKKKXXXXXKKXKKXXXXXKXXKKXXKXXKXXKXKKKXXXKKX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

* TTY SWITCHED LINE AT 300 BAUD START/STOP MODE X 

X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


GTTY GROUP CRETRY=6, RETRY 6 TIMES 

DIAL=YES, SWITCHED LINE 

REPLYTO=NONE, NO REPLY TIME OUT 

TEXTTO=NONE, NO TEXT TIME OUT 

LNCTL=SS START STOP LINE TYPE 

LTTY LINE ADDRESS=029, LINE ADDRESS X 

MONITOR=YES, TEST FOR BREAK X 

TYPE=NCP, NCP ONLY X 

CRDLAY=YES, X 

DIRECTN=INOUT, X 

CRRATE=10» X 

LINESIZ=80, X 

C0DE=DIC3, X 

CUTOFF=l, STOP RUNAWAY TTY X 

SPEED=300> LINE SPEED 300 BPS X 

CALL=IN, CALL IN ONLY X 

CLOCKNG=INT, INTERNAL CLOCKING X 

DUPLEX=FULL MODEM STRAPPING IS FULL DUPLEX 

TTY1 TERMINAL TERM=TWX, TTY DEFINED AS TUX X 

UTERM=TTY1A» LOGICAL TERMINAL NAME X 

ATTN=ENABLED, ENABLE ATTENTION FUNCTION X 

FEATURE=CATTN,BREAK,TOSUPPR), X 

LOGAPPL=NETSOL, X 

LOGTAB=TABLE01, X 

CTERM=YES LOGICAL CONNECTION 


Note- This sample will work with VSPC and TSO through TCAM9/VTAM. 
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SAMPLE NCP FOR 3705 


SWITCHED BSC LINE GROUP 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SWBSCLG GROUP DIAL=YES, SWICHED BSC X 

LNCTL=BSC» BSC LINE CONTROL X 

TYPE=NCP, FOR USE BY NCP ONLY X 

WACKCNT=15, WACK COUNT OF 15 X 

LOGAPPL=NETSOL, X 

WAKDLAY=2.2, WACK DELAY OF 2.2 SEC X 

SYNDLAY=1, SYNC INTERVAL RATE X 

REPLYT0=3 REPLY TIME OUT = 3 SECONDS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X LINE SPEC FOR DIAL-IN BSC TERMINALS X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SWBSCLA LINE ADDRESS=045, LINE ADDRESS ON 3705 X 

CLOCKNG=EXT , EXTERNAL MODEM CLOCKING X 

TRANSFR=5> PASS IT ON IF LARGER THAN 5 X 

SPEED=1200, LINE SPEED X 

CODE=EBCDIC, EBCDIC ONLY X 

DUPLEX=HALF» MODEM STRAPPING IS HALF DUPLEX X 

CALL=IN, INCOMING CALLS ONLY X 

INTPRI=1, INTERRUPT PRIORITY IS 1 X 

NEWSYNC=NO» 3705 WILL NOT PROVIDE NEW SYNC X 

CUTOFF=10, ALLOW FOR FULL RECEIPT OF MESSAGE X 

RETRIES=(4,1,6> 4 RETRY EVERY 1 SEC F n R 6 TIMES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

x TERMINAL MACROS X 

X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

T3780 TERMINAL TERM=3780, 3770 DEFINED AS 2770 

CTERM=YES, 

UTERM=T3780A CONTROLLING STATION 
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SAMPLE NCP FOR 3705 


PT. TO PT. BSC LINES 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

x GROUP SPECIFICATION FOR LEASED POINT TO POINT LINE x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

GRPPTPT GROUP DIAL=NO, NON-SWITCHED LINES X 

LNCTL=BSC* BSC LINE CONTROL X 

TRANSFR=5» LIMIT NUMBER OF RECEIVE BUFFERS X 

CUTOFF=10» LIMIT NUMBER OF SUBBLOCKS X 

TYPE=NCP, FOR USE BY NCP ONLY X 

REPLYT0=3 REPLY TIME OUT 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X LINE SPEC FOR PT TO PT BSC LINK SYSTEM/7 X 

X LINE CODED TO SUPPORT SDLC/BSC PATH FUNCTION X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LINE48 LINE ADDRESS S 048* LINE ADDRESS ON 3705 X 

CLOCKNG=EXT» EXTERNAL MODEM CLOCKING X 

SPEED=2400, LINE SPEED X 

CODE=EBCDIC, EBCDIC ONLY X 

DUPLEX=HALF, MODEM STRAPPING IS HALF DUPLEX X 

YIELD=NO> NCP DOES NOT YIELD IN CONTENTION X 

TERM=SYS3 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X TERMINAL MACRO SYSTEM/7 X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SYSTEM7 TERMINAL BHEXEC=PT3, X 

BHSET=BHSET, X 

EXEC=YES, X 

CONV=YES, X 

PT3EXEC=YES, X 

CRITSIT=YES, X 

TERM=SYS3 

NOTE- This line will interface with the SDLC/BSC Path function. 
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SAMPLE NCP FOR 3705 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X X 

X LINE SPEC FOR PT TO PT BSC LINK SYSTEM/3 * 

* MAYBE USED AS STATION FOR PREVIOUS LINE X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LINE49 LINE ADDRESS=049, LINE ADDRESS ON 3705 X 

CLOCKNG=EXT> EXTERNAL MODEM CLOCKING X 

SPEED=2400, LINE SPEED X 

CODE=EBCDIC, EBCDIC ONLY X 

DUPLEX=HALF, MODEM STRAPPING IS HALF DUPLEX X 

YIELD=YES, NCP DOES YIELDS TO CONTENTION X 

TERM=SYS3 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X TERMINAL MACRO SYSTEM/3 X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SYSTEM3 TERMINAL TERM=SYS3, X 

C0NV=YES 


Note- This line may be used as a driver for line on the proceeding page. 
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SAMPLE NCP FOR 3705 


3270 BSC SPECIFICATIONS 

X GROUP SPECIFICATION FOR REMOTE 3270'S X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


BSC3270 GROUP DIAL=N0, 
CRETRY=7» 
LNCTL=BSC, 


NON-SWITCHED LINES 

TIME OUT MILL TAKE ABOUT 63 SECONDS 

BSC LINE CONTROL 


xxx TRANSFR times the BFRS value in the BUILD macro should be a value 
greater than 256 but not exceed 400. 

TRANSFR=5, LIMIT NUMBER OF RECEIVE BUFFERS 


xxx CUTOFF=l is required for 3270 BSC cluster control units. 


CUT0FF=1, LIMIT NUMBER OF SUBBLOCKS 

TYPE=NCP, FOR USE BY NCP ONLY 


xxx XMITLIM=1 is required for BSC 3270 Clusters. 


XMITLIM=1 , 

MACKCNT=15, 

WAKDLAY=2.2> 

SYNDLAY=1, 

REPLYT0=3 


TRANSMISSION LIMIT 
MACK COUNT OF 15 
MACK DELAY OF 2.2 SEC 
SYNC INTERVAL RATE 
REPLY TIME OUT 
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SAMPLE NCP FOR 3705 


X LINE SPEC FOR 3271 X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SSCBSC LINE ADDRESS=044, LINE ADDRESS ON 3705 X 

ISTATUS=INACTIVE, ACF/VTAM USE ONLY X 

CL0CKNG=EXT, EXTERNAL MODEM CLOCKING X 

SPEED=4800, LINE SPEED X 

CODE=EBCDIC, EBCDIC 3270'S ONLY X 

DUPLEX=FULL» DUPLEX FACILITY IS USED X 


xxx NEWSYNC=NO is required for IBM 3274/3276 if DUPLEX=FULL is coded. 

NEWSYNC=YES, 3705 WILL PROVIDE NEW SYNC 

INTPRI=1, INTERRUPT PRIORITY IS 1 

XXX POLIMIT=(l,QUEUE) is recommended for best performance. 


P0LIMIT=C1,QUEUE), X 

POLLED=YES, POLLED DEVICE X 

NEGPOLP=.l, NEGATIVE POLL PAUSE X 

PAUSE=1, DELAY BETWEEN SERVICE CYCLES X 

RETRIES=C7,4,3), X 

SERVPRI=OLD, PRIORITY TO OLD SESSIONS X 

xxx The SESSION=N should be equal to the number of clusters and 
terminals on the link. 

SESSI0N=8, SPECIFY 1 FOR EACH CLUSTER X 

AND TERMINAL 


xxx The following parameter is for ACF/VTAM only. 

PU=YES ACF/VTAM ONLY 

xxx The following parameter may be used with VTAM or ACF/VTAM 
but can not be used with PU=YES. 

LOGAPPL=NETSOL 


xxx LOGTAB= is required when the terminals are allocated to NETSOL. 
LOGTAB=TABLE01 LOGON TABLE FOR NETSOL 
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SAMPLE NCP FOR 3705 


X SERVICE ORDER MACRO SPECIFICATIONS x 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxx Each cluster end terminal must be contained in the SERVICE macro. 

SSCSOR SERVICE ORDER=CSSC3270,SSCT1,SSCT2,SSCT3, X 

5SCT4»SSCT5>SSC3275> SSCT6) 


X CLUSTER MACRO FOR 3270 VTAM2, ACF/VTAM BASIC, OR ACF/TCAM 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SSC3270 CLUSTER CUTYPE=3271, 3271 DEFINED 

FEATUR2=(M0DEL2,ANKEY,PFK), 3277 FEATURES 
CRITSIT=YES, SEND CLOSE-DOWN MESSAGE 

GPOLL S 40407F7F GENERAL POLL ADDRESS 


X CLUSTER MACRO FOR 3270 ACF/VTAM (PU=YES) X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SSC3270 CLUSTER CUTYPE=3271, 
CRITSIT=YES, 
GPOLL=40407F7F, 


3271 DEFINED 

SEND CLOSE-DOWN MESSAGE 

GENERAL POLL ADDRESS 


xxx The following parameters are ACF/VTAM only. 


DLOGMOD=S3270, 

MODE 

FOR 

BSC3270 

USSTAB=VUSS3270, 

M0DETAB=N0SPTAB 

MODETAB 

FOR 

BSC3270 
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SAMPLE NCP FOR 3705 


X TERMINAL MACROS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SSCT1 TERMINAL TERM=3277, 3277 DISPLAY STATION 

FEATUR2=(M0DEL2»ANKEY>PFK)» 3277 FEATURES 
XXX ACF/VTAM requires FEATUR2= to be on terminal macro. 

ISTATUS=ACTIVE» WILL ACTIVATE WITH CLUSTER 

ADDR=60604040, SELECTION ADDRESS FOR T1 

PQLL=40404040 POLL ADDRESS OF TERM T1 


SSCT2 TERMINAL TERM=3277, 3277 DISPLAY STATION X 

FEATUR2=(M0DEL2,ANKEY,PFK), 3277 FEATURES X 

ISTATUS=ACTIVE» WILL ACTIVATE WITH CLUSTER X 

ADDR=6060C1C1, SELECTION ADDRESS FOR T2 X 

POLL=4040C1C1 POLL ADDRESS FOR T2 

SSCT3 TERMINAL TERM=3277, 3277 DISPLAY STATION X 

FEATUR2=(M0DEL2,ANKEY,PFK), 3277 FEATURES X 

ISTATUS=ACTIVE* WILL ACTIVATE WITH CLUSTER X 

ADDR=6060C2C2, SELECTION ADDRESS FOR T3 X 

POLL=4040C2C2 POLL ADDRESS FOR T3 

SSCT4 TERMINAL TERM=3277, 3277 DISPLAY TERMINAL X 

FEATUR2=(M0DEL2,ANKEY,PFK), 3277 FEATURES X 

ISTATUS=ACTIVE» WILL ACTIVATE WITH CLUSTER X 

ADDR=6060C3C3, SELECTION ADDRESS FOR T4 X 

POLL=4040C3C3 POLL ADDRESS FOR T4 

SSCT5 TERMINAL TERM=3286, 3286 PRINTER X 

*** DIRECTN=OUT is required by VTAM. 

DIRECTN=OUT, REQUIRED FOR VTAM X 

ISTATUS=ACTIVE, WILL ACTIVATE WITH CLUSTER X 

ADDR=6060C4C4* SELECTION ADDRESS FOR T5 X 

BFRDLAY=13, ALLOW 13 SECONDS TIME DELAY X 

POLL=4040C4C4 SELECTION ADDRESS FOR T5 


xxxx Terminal addresses must be sequential. No address may be skipped 
and no device should be attached to the 3271 controller that is 
not defined in the NCP generation. 
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SAMPLE NCP FOR 3705 


CLUSTER MACRO FOR 3275 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SSC3275 CLUSTER CUTYPE=3275, 3275 DEFINED X 

FEATUR2=(M0DEL2,ANKEY,PFK,PRINTR), 3275 FEATURES X 
CRITSIT=YES, SEND CLOSE-DOWN MESSAGE X 

GP0LL=C1C17F7F> GENERAL POLL ADDRESS X 

ISTATUS=INACTIVE» DO NOT ACTIVATE 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x TERMINAL MACROS 

x 

SSCT6 TERMINAL TERM=3275, 3275 DISPLAY STATION X 

ISTATUS=ACTIVE» WILL ACTIVATE WITH CLUSTER X 

BFRDLAY=13, REQUIRED IF 3275 HAS PRINTER X 

ADDR=61614040, SELECTION ADDRESS FOR T6 X 

POLL=C1C14040 POLL ADDRESS OF TERM T6 
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SAMPLE NCP FOR 3705 


GROUP SPECIFICATIONS FOR SDLC LEASED LINES 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SDLCGPI GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK 

DIAL=NO, REQUIRED FOR LEASED LINE 

REPLYTO=1.0, USE DEFAULT 

TYPE=NCP NCP ONLY 


LINE MACRO SPECIFICATION - HALF-DUPLEX, LEASED 


X MAY BE USED FOR 3790, 3600, 3650, 3770, 3270 AND 3767 * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxx The folloMing line will also work as a manual switched backup 
line if the ENABLTO parameter on the BUILD macro is increased 
from the default to at least 60. 


SDLC1 LINE ADDRESS-(022), TRANSMIT AND RECEIVE ADDRESS X 

DUPLEX=HALF, MODEM IS STRAPPED FOR HALF DUPLEX X 

SPEED-1200, LINE SPEED TO BE 1200 OR HIGHER X 

NRZI=NO, X 

NEWSYNC=NO, X 

CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 

POLLED=YES, X 

RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 


LINE MACRO SPECIFICATION - HALF-DUPLEX, LEASED, INTERNAL CLOCK 


X MAY BE USED FOR 3790, 3600, 3650, 3770, 3270 AND 3767 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLC1A LINE ADDRESS=(024), TRANSMIT AND RECEIVE ADDRESS X 

DUPLEX=FULL, X 

SPEED-1200, CSB TIMER IS 1200 X 

NRZI=YES, REQUIRED FOR INTERNAL CLOCKING X 

NEWSYNC=NO, X 

CLOCKNG=INT, INTERNAL CLOCKING X 

POLLED=YES, X 


RETRIES=(5) 5 RETRIES PER RECOVERY SEQUENCE 
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SAMPLE NCP FOR 3705 


SDLC LINE MACRO SPECIFICATION FULL DUPLEX LINK 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SDLC2 LINE ADDRESS=(020,021) 
DUPLEX=FULL, 
SPEED=2400» 
NEWSYNC=N0» 
CLOCKNG=EXT» 
NR2I=N0» 
P0LLED=YES, 
RETRIES=(5) 


TRANSMIT AND RECEIVE ADDRESSES X 
MODEM STRAPPING IS FULL-DUPLEX X 
LINE SPEED IS 2400 BPS X 
CHECK IF MODEM REQUIRES IT X 
MODEM PROVIDES CLOCKING X 
DEPENDS ON MODEM X 

X 


5 RETRIES PER RECOVERY SEQUENCE 


SDLC DUPLEX LINE SPECIFICATION (SINGLE PORT) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SDLC3 LINE ADDRESS=(046), 
DUPLEX-FULL > 
SPEED=2400, 
CLOCKNG=EXT, 
POLLED=YES, 
RETRIES=(5) 


TRANSMIT AND RECEIVE ADDRESS 
MODEM STRAPPING IS FULL DUPLEX 
SPEED IS 2400BPS 
MODEM PROVIDES CLOCKING 

5 RETRIES PER RECOVERY SEQUENCE 


SERVICE MACRO FOR SDLC LINK 


X EACH PU MUST BE IN SERVICE ORDER LIST X 

X X 

XXKXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXX 

SERVICE ORDER=CPU3790Y,CL3600,STORE1,PU3770R,HD3767,CL3270D> 
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3790 PU MACRO SPECIFICATION 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


PU3790Y PU ADDR=C1» X 

PUTYPE=2, x 

ISTATUS=INACTIVE» X 

MODETAB=MODE3790» X 

MAXOUT=7 1 MAX PATH INFO UNITS BEFORE RESPONSE X 

MAXDATA=265, MAXIMUM AMOUNT OF DATA X 

XXX MAXDATA = 265 is required for 3790 

PASSLIM=7, X 


RETRIES=C,1,4) 4 RETRIES, 1 SECOND BETWEEN 


3790 LOGICAL UNIT SPECIFICATIONS 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


INBATCHY 

LU 

BT3790Y1 

LU 

BT3790Y2 

LU 

CM3790Y1 

LU 

CM3790Y2 

LU 

RJE1Y 

LU 

RJE2Y 

LU 

RJE3Y 

LU 

RJE4Y 

LU 

INQ1Y 

LU 

INQ2Y 

LU 

INQ3Y 

LU 

INQ4Y 

LU 

INQ5Y 

LU 

BP3790Y1 

LU 

BP3790Y2 

LU 

UP3790Y1 

LU 

UP3790Y2 

LU 


LOCADDR=l,PACING=(2,2),VPACING 2 (4,2),ISTATUS=ACTIVE 
L0CADDR=2,PACING 2 (1,1),VPACING=(2,1),ISTATUS=ACTIVE 
L0CADDR = 3,PACING = (7»7),VPACING = <10*7),ISTATUS 2 ACTIVE 
LOCADDR 2 4,PACING=(0>,VPACING=C0),ISTATUS 2 ACTIVE 
LOCADDR 2 5,PACING=CO),VPACING 2 CO),ISTATUS 2 ACTIVE 
L0CADDR=8,PACING=(3,3),VPACING 2 (4,3),ISTATUS=ACTIVE 
L0CADDR 2 9,PACING 2 (3,1>,VPACING=(4,2),ISTATUSSACTIVE 
LOCADDR=10,PACING 2 (1,1),VPACING 2 <2,1),ISTATUS 2 ACTIVE 
LOCADDR=lI,PACING 2 (1,1),VPACING 2 ? 2,1),ISTATUS 2 ACTIVE 
L0CADDR 2 12,PACING 2 <1,1),VPACING=(2,1>,ISTATUSSACTIVE 
L0CADDR 2 13,PACING 2 (1,1),VPACING 2 C2,1),ISTATUS=ACTIVE 
L0CADDR=14»PACING=(1»1)* VPACING=(2»1)»ISTATUS 2 ACTIVE 
L0CADDR=15,PACING=<1, 1) ,VPACING 2 (2,1),ISTATUS=ACTIVE 
LOCADDR=16,PACING=<1,1),VPACING=C2,1),ISTATUS=ACTIVE 
L0CADDR=17,PACING 2 ?1, 1 >,VPACING=(2,1),ISTATUS=ACTIVE 
LOCADDR 2 18,PACING=?l,l),VPACING 2 ?2,l>,ISTATUS 2 ACTIVE 
LOCADDR=19,PACING 2 ?l,l),VPACING=?2,l),ISTATUS 2 ACTIVE 
LOCADDR=20>PACING 2 (1,1),VPACING=?2,1),ISTATUS=ACTIVE 


NOTE - If ACF/VTAM, ell pacing parameters Mill be changed to ?m,l). 

After generating the NCP MitH the above definitions, change the 
source to VTAM to indicate a pacing of (m,l). 
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3600 CLUSTER MACRO SPECIFICATION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


CL3600 PU ADDR=C1, pu ADDRESS = A (EBCDIC) 

PUTYPE=2, 

xxx The MAXDATA value should be 9 greater then the buffer value 
defined in the 3600 CPGEN. The retries operand for the SDLC link 
should be less than the Time-Out value specified in the CPGEN. 

MAXDATA=265, MAXIMUM AMOUNT OF DATA 

MAX0UT=7 1 MAX PATH INFO UNITS BEFORE RES 

PASSLIM=7, 

ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR 
RETRIES=(»4»2)» SHOULD BE LESS THAN 20 SECONDS 
PACING=C0>, 

VPACING=(0) 


3600 LOGICAL UNIT SPECIFICATIONS 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FALUA1SS LU L0CADDR=1, FA REQ*D FOR 1ST LU 

PACING=(3»1)» 

VPACING=(6,1)» 

ISTATUS=INACTIVE 

FALUA2 LU L0CADDR=2> X 

ISTATUS=ACTIVE 

FALUA3 LU L0CADDR=3, X 

ISTATUS=ACTIVE 

FALUA4 LU L0CADDR=4, X 

ISTATUS=ACTIVE 
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SAMPLE NCP FOR 3705 


3650 CLUSTER MACRO SPECIFICATION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXX 


STOREI PU ADDR=C4» PU ADDRESS = D (EBCDIC) 

PUTYPE=2, 

MAXOUT=7, MAX PATH INFO UNITS BEFORE RES 

XXX MAXDATA = 265 is required for 3650 

MAXDATA=265, 6 BYTE TH, 3 BYTE RH, 256 BYTE RU X 


PASSLIM=7, X 
ISTATUS=INACTIVE» ACTIVATE VIA OPERATOR X 
RETRIES=(,10,3), SHOULD BE LESS THAN 60 SECONDS X 
PACING=(1,1)» X 
VPACING=(2»1) 


3650 LOGICAL UNIT SPECIFICATIONS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


QESTORE1 LU L0CADDR=1, REQ'D FOR 1ST LU X 

PACING=(7>1)> IMPROVES LOADING 3651 X 

VPACING=(7,6), X 

BATCH=YES, X 


ISTATUS=ACTIVE 

QECREDIT LU L0CADDR=2 , MODETAB=CRMODTB , DATASW=SYSTEM7 

QE365311 LU L0CADDR=3 

QE365312 LU L0CADDR=4 

QE365313 LU L0CADDR=5 

QE365314 L’J LOCADDR=6 

QE365315 LU LOCADDR=7 

QE327511 LU LOCADDR=8 

QE327512 LU L0CADDR=9,PACING=(2,1),VPACING=(3,1) 

QE327513 LU LOCADDR-10,PACING=(2>1),VPACING=(3>1) 

QE327514 LU L0CADDR=11,PACING=(2,1),VPACING=C3,1) 

QE327515 LU L0CADDR=12,PACING=(2,1),VPACING=<3,1) 

QEINT1 LU L0CADDR=13>PACING=(2»1) 

QEINT2 LU L0CADDR=14 
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SAMPLE NCP FOR 3705 


3777 PU SPECIFICATION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


PU3777R PU ADDR=C2, X 

ISTATUS=ACTIVE» X 

PACING=<1,1), X 

MODETAB-RJEMODE* X 

VPACING=(2>1)» X 

MAXDATA=521> MAXIMUM AMOUNT OF DATA X 


XXX MAXDATA = 265 or 521 may be specified for 3777. 

MAX0UT=1> MAX PATH INFO UNITS BEFORE RES 

PASSLIM=1, 

PUTYPE=2 DEFINE AS PU 


3770 LU SPECIFICATION 


X IBM 3777-1 REQUIRES ONE LU X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LU3777R LU L0CADDR=1, 

ISTATUS=ACTIVE, 

SSCPFM=USSSCS» REQUIRED FOR 3770 

US5TAB = ASUSST70 , USSTAB FOR 3770 

BATCH=YES BATCH DEVICE 
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SAMPLE NCP FOR 3705 


37/0 PU SPECIFICATION (MLU) 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

* PU SPECIFICATION FOR IBM 3770 PR06RAMABLE * 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PU70P PU ADDR=C1, PU ADDRESS = A (EBCDIC) X 

PACING=(1,1), X 

ISTATUS=ACTIVE, X 

VPACING=(2»1)> X 

MAXDATA=265, MAXIMUM AMOUNT OF DAT* X 

MAX0UT=1, MAX PATH INFO UNITS BEFORE RES X 

PASSLIM=1, X 

PUTYPE=2 DEFINE AS PU 


3770 LU SPECIFICATION (MLU) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


P70LU1 LU LOCADDR=l, X 

MODETAB=MODE3770» REQUIRED FOR 3770 SLUI X 

SSCPFM=USSSCS» REQUIRED FOR 3770 X 

USSTAB=ASUSST70, USSTAB FOR 3770 X 

ISTATUS=ACTIVE, X 

BATCH=YES BATCH DEVICE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
P70LU2 LU L0CADDR=2, X 

SSCPFM=USSSCS, REQUIRED FOR 3770 X 

USSTAB = ASUSST70 , USSTAB FOR 3770 X 

ISTATUS=INACTIVE, X 


BATCH=YES BATCH DEVICE 

P70LU3 LU LOCADDR=3, 

SSCPFM=USSSCS, REQUIRED FOR 3770 

USSTAB=ASUSST70, USSTAB FOR 3770 

ISTATUS=INACTIVE» 

BATCH=YES BATCH DEVICE 
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SAMPLE NCP FOR 3705 


3271 SDLC PU SPECIFICATION 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXK 


CL3270D PU ADDR=C5, CONTROLLER ADDRESS 2 E (EBCDIC) X 

PUTYPE=1, REMOTE NCP X 

BNNSUP=3270, REQUIRED FOR 3270’S X 

SSCPFM=USS3270» X 

MODETAB=S3270» REQUIRED IF LU IS TO BE ACQUIRED X 

#XX MAXDATA 2 261 is required for 3270 

MAXDATA=261, MAXIMUM AMOUNT OF DATA X 

ISTATUS=INACTIVE» ACTIVATE VIA OPERATOR X 

PASSLIM 2 12, MAXIMUM OUTBOUND PIU X 

MAX0UT=7 , MAX PATH INFO UNITS X 

USSTAB=ASUSST70, LOGON USSTAB X 

RETRIES 2 (,10 >4)> 4 RETRIES» 10 SECONDS BETWEEN X 

PACING=(1»1) 


3271 LU SPECIFICATION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX^XXXXXXXXXXXXXX 

CL3270D0 LU LOCADDR=0,ISTATUS 2 ACTIVE,USSTAB=VUSS3270 

CL3270D1 LU LOCADDR 2 1,ISTATUS 2 ACTIVE,USSTAB=VUSS3270 

CL3270D2 LU LOCADDR 2 2>ISTATUS 2 ACTIVE»USSTAB=VUSS3270 

CL3270D3 LU L0CADDR=3,ISTATUS=ACTIVE,USSTAB=VUSS3270 

CL3270D4 LU LOCADDR 2 4,ISTATUS=ACTIVE,USSTAB=VUSS3270 

CL3270D5 LU LOCADDR 2 5,ISTATUS=ACTIVE,USSTAB=VUSS3270 

CL3270D6 LU LOCADDR=6,ISTATUS 2 ACTIVE,USSTAB=VUSS3270 

CL3270D7 LU LOCADDR=7,ISTATUS 2 ACTIVE NO USSTAB FOR PRINTER 
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SAMPLE NCP FOR 3705 


3274 SDLC PU SPECIFICATION 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SDLC3274 PU ADDR=C1, X 

PUTYPE=2» X 

1STATUS = ACTIVE, X 

M0DETAB=MT3274C, X 

SSCPFM=USSSCS, X 

MAXOUT=7, MAX PATH INFO UNITS BEFORE RESPONSE X 

MAXDATA=265, MAXIMUM AMOUNT OF DATA X 

PASSLIM=7, X 

PACING=0, FOR DISPLAYS AND DSC PRINTERS X 

VPACING=0, FOR DISPLAYS AND DSC PRINTERS X 

DISCNT=(NO>, X 

RETRIES=(,1,4) 4 RETRIES, 1 SECOND BETWEEN 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 
X LOGICAL UNIT SPECIFICATIONS X 
X X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SDLCPA01 LU 
SDLCPA02 LU 
SDLCPA03 LU 
SDLCPA04 LU 
SDLCPA05 LU 
SDLCPA06 LU 
SDLCPA07 LU 
SDLCPA08 LU 
SDLCPB01 LU 
SDLCPB02 LU 
SDLCPB03 LU 
SDLCPB04 LU 


LOCADDR=2,USSTAB=USST3270,DLOGMOD=T3278M4 

LOCADDR=3,USSTAB=USST3270,DL0GM0D=T3278M4 

LOCADDR=4,USSTAB=USST3270,DLOGMOD=T3278M3 

LOCADDR=5,USSTAB=USST3270,DLOGMOD=T3278M3 

L0CADDR=6,USSTAB=USST3270,DLOGMOD=T3278M2 

LOCADDR=7,USSTAB=USST3270,DLOGMOD=T3278M4 

L0CADDR=8,DL0GM0D=DSC4K,M0DETAB=MTNDSPTR 

L0CADDR=9,DL0GM0D=SCS,M0DETAB=MTNDSPTR 

LOCADDR=10,USSTAB=USST3270,DLOGMOD=T3277M2 

LOCADDR=11,USSTAB=USST3270,DLOGMOD=T3277M2 

LOCADDR=12,USSTAB=USST3270,DLOGMOD=T3277M2 

LOCADDR=13,USSTAB=USST3270,DLOGMOD=T3277M2 


NOTE - USSTAB should be specified at LU level to eliminate sending 
USS Message 10 to printers. 
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SAMPLE NCP FOR 3705 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
x X 

X PU MACRO SPECIFICATION FOR 3276 X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SDLC3276 PU ADDR=C2, X 

PUTYPE=2, X 

ISTATUS=INACTIVE, X 

M0DETAB=MT3276» X 

SSCPFM=USSSCS, X 

MAX0UT=7, MAX PATH INFO UNITS BEFORE RESPONSE X 

MAXDATA=265, MAXIMUM AMOUNT OF DATA X 

PASSLIM=7, X 

PACING=0 , FOR DISPLAYS X 

VPACING=0, FOR DISPLAYS X 

DISCNT=(N0)» X 

RETRIES=(>1,4) 4 RETRIES, 1 SECOND BETUEEN 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X LOGICAL UNIT SPECIFICATIONS X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SDLC76PI LU LOCADDR=2,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P2 LU LOCADDR=3,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P3 LU LOCADDR=4,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P4 LU LOCADDR=5,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P5 LU LOCADDR=6,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P6 LU LOCADDR=7,USSTAB=USST3270,DLOGMOD=T3278M2 

SDLC76P7 LU L0CADDR=8,DL0GM0D=DSC4K,M0DETAB=MTNDSPTR 

SDLC76P8 LU L0CADDR=9,DL0GM0D=SCS,M0DETAB=MTNDSPTR 

NOTE - USSTAB should be specified at LU level to eliminate sending 
USS Message 10 to printers. 
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SAMPLE NCP FOR 3705 


3767 PU SPECIFICATION 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
HD3767 PU ADDR=C2, PU ADDRESS = B (EBECDIC) 

PUTYPE=1, TERMINAL NODEX 

XXX MAXDATA =261 is required for 3767 

MAXDATA=261, MAXIMUM AMOUNT OF DATA 

MAX0UT=1, MAX PATH INFO UNITS BEFORE RES 

PACING=(1,1> 


3767 LU SPECIFICATION 


X IBM 3767 REQUIRES ONE LU 


TR3767HD LU LOCADDR=0, 

ISTATUS=ACTIVE» 

USSTAB=ASUSSTAB, 

SSCPFM=USSSCS> 

M0DETAB=ALL3767 OPTIONAL, DEPENDING UPON APPLICATION 
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SAMPLE NCP FOR 3705 


SDLC DIAL GROUP SPECIFICATIONS 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


SDLCGP2 GROUP LNCTL=SDLC, 
DIAL=YES, 
TYPE=NCP 


SYNCHRONOUS DATA LINK 
REQUIRED FOR DIAL LINE 
NCP ONLY 


SDLC LINE MACRO SPECIFICATION - HALF-DUPLEX, SWITCHED 


X MAY BE USED FOR 3790, 3650, 3770, AND 3767 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SDLC4 LINE ADDRESS=(023), TRANSMIT AND RECEIVE ADDRESS X 

CALL=INOUT, REQUIRED BY VTAM FOR IN/OUT X 

DUPLEX=HALF, MODEM IS STRAPPED FOR HALF DUPLEX X 

SPEED=1200, 3601 TO OPERATE AT 1200 BPS X 

NRZI-NO, UNITS NOT SPECIFIED WITH NRZI X 

CLOCKNG=EXT, MODEM PROVIDES CLOCKING X 

POLLED=YES, X 

RETRIES=(5,10,3), 5 RETRIES PER RECOVERY SEQUENCE X 

VPACING=(2,1) SEND 2 FOR 1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X NO SERVICE ORDER FOR SDLC SWITCHED LINE X 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


PU MACRO SPECIFICATION FOR SWITCHED LINK 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PU1 PU PUTYPE=C1,2), SUPPORT TYPE 1 AND 2 PU'S X 

MAXLU=60 MAXIMUM NUMBER OF LU’S FOR LINE 

XXX MAXLU = must be greater than total LU's on PU. 
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SAMPLE NCP FOR 3705 


SPECIFICATIONS FOR REMOTE NCP 

X GROUP MACRO SPECIFICATIONS X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXX 

SDLCGP3 GROUP LNCTL=SDLC, SYNCHRONOUS DATA LINK 

DIAL-NO* REQUIRED FOR LEASED LINE 

TYPE=NCP NCP ONLY 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X X 

X FULL DUPLEX SDLC LINE SPECIFICATIONS FOR REMOTE NCP INTERFACE X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

REMLN LINE ADDRESS=(040,041), TRANSMIT AND RECEIVE ADDRESSES X 

NEWSYNC 5 NO, DO NOT USE WITH REMOTE NCP X 

DUPLEX=FULL» MODEM STRAPPING IS FULL DUPLEX X 

SPEED 5 2400, SPEED IS 2400BPS X 

CLOCKNG-EXT, MODEM PROVIDES CLOCKING X 

POLLED 5 YES, X 

RETRIES=<7> 7 RETRIES PER RECOVERY SEQUENCE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X SERVICE ORDER FOR DUPLEX LINK X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SERVICE ORDER=NCPVR ONLY ONE REMOTE CONTROLLER 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X PU4 CINNODE) SPECIFICATION FOR REMOTE NCP X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

NCPVR PU ADDR=C1, CONTROLLER ADDRESS 5 A (EBCDIC) X 

PUTYPE=4, REMOTE NCP X 

MAXOUT 5 7, MAX PATH INFO UNITS BEFORE RESTORE X 

RETRIES 5 (>10,5), 5 RETRIES, 10 SECONDS BETWEEN X 

SUBAREA=5* REMOTE SUBAREA ADDRESS 5 5 X 

DATMODE=FULL FULL DUPLEX DATA TRANSFER 
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SAMPLE NCP FOR 3705 


BLOCK HANDLER DEFINITIONS 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X BLOCK HANDLER DEFINITIONS FOR SDLC/BSC PATH FUNCTION X 
x x 


STARTBH STARTBH BHEXEC=PT3 
SPAFPT3 SPAFPT3 
ENDBH ENDBH 

SPACE 2 

BHSET BHSET EXEC=YES,PT3=STARTBH 


GENEND DELIMITER 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

GENEND 

END 

/X 
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SWITCHED SNA DEFINITIONS 


CHAPTER £ : SWITCHED SNA DEFINITIONS 


REFERENCES 

DOS/VS VTAM System Programmers Guide 
DOS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide (DOS) 
ACF/VTAM Installation Guide (DOS) 

ACF/VTAM Reference Summary (DOS) 

0S/VS1 VTAM System Programmer's Guide 

OS/VS VTAM Reference Summary 

0S/VS2 SVS VTAM System Programmer's Guide 

0S/VS2 VTAM System Programming LibrarysVTAM 

ACF/VTAM System Programmers Guide 

ACF/VTAM Installation Guide 

ACF/VTAM Reference Summary 


GC27-6957 

GX27-0033 

SC38-0268 

SC38-0270 

SX27-3022 

GC27-6996 

GX27-0034 

GC27-0049 

GC28-0688 

SC38-Q258 

SC38-0269 

SX27-3021 


G320-6028 (2/79) 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 8-1 



SWITCHED SNA DEFINITIONS 

VBUILD MACRO SPECIFICATIONS - SWITCHED 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SWITCH01 VBUILD TYPE=SWNET , SWITCHED NET X 

SUBAREA=4, SUBAREA ADDRESS =4 X 

CONFGDS=SWT001, RESTART FILE X 

MAXN0=4» 4 DIALNO X 

MAXGRP=1 1 PATH GROUP 


IBM 3790 SWITCHED DEFINITION 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CL3790A PU ADDR=C1, CLUSTER ADDRESS = I (EBCDIC) X 

PUTYPE=2» X 

IDBLK=006, IDENTIFICATION BLOCK X 

IDNUM=03791> IDENTIFICATION NUMBER X 

MAXDATA=265, MAXIMUM AMOUNT OF DATA X 

MAXOUT=7» MAX PATH INFO UNITS BEFORE RES X 

MAXPATH=1» DIAL-IN ONLY X 

PASSLIM=7, EQUAL TO MAXOUT X 

PACING=(1»1)> X 

VPACING=(2,1), X 

ISTATUS S ACTIVE» X 

MODETAB=MODE3790, X 

IRETRY=YES 

XXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

X PATH STATEMENT X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PATH01 PATH GID=1, X 

GRPNM=SDLCGV2, NCP SWITCHED LINE GROUP X 

PID=1, ID FOR THIS PATH X 

USE=YES» X 

DIALN0=3464 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

x LOGICAL UNIT SPECIFICATIONS X 
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SWITCHED SNA DEFINITIONS 


X X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXKXXXXXXXXXXXXXX 

INBATCH1 LU L0CADDR=1,ISTATUS=ACTIVE,BATCH=YES 

INQ02 LU L0CADDR=2,ISTATUS=ACTIVE 

INQ03 LU LOCADDR=3»1STATUS=ACTIVE 

INQ04 LU L0CADDR=4,ISTATUS=ACTIVE 

INQ05 LU L0CADDR=5,ISTATUS=ACTIVE 

BT379011 LU LOCADDR=20,ISTATUS=ACTIVE 

BT379012 LU L0CADDR=21,ISTATUS=ACTIVE 

RJE01 LU L0CADDR=25»ISTATUS=ACTIVE 

RJE02 I'J L0CADDR=26,ISTATUS=ACTIVE 

RJE03 LU L0CADDR=27,ISTATUS=ACTIVE 

RJE04 LU L0CADDR=28,ISTATUS=ACTIVE 

RJE05 LU L0CADDR=29,ISTATUS=ACTIVE 

CM379011 LU LOCADDR=30»ISTATUS s ACTIVE 

CM379012 LU L0CADDR=31,ISTATUS=ACTIVE 

CM379013 LU L0CADDR=32,ISTATUS=ACTIVE 

CM379014 LU L0CADDR=33,ISTATUS=ACTIVE 

BP379011 LU L0CADDR=35,ISTATUS=ACTIVE 

BP379012 LU L0CADDR=36,ISTATUS=ACTIVE 

BP379013 LU LOCADDR=37,ISTATUS=ACTIVE 

UP379011 LU LOCADDR=40»ISTATUS=ACTIVE 

UP379013 LU L0CADDR=42,ISTATUS=ACTIVE 

UP379014 LU L0CADDR=43,ISTATUS=ACTIVE 

UP379015 LU L0CADDR=44,ISTATUS=ACTIVE 

UP379016 LU L0CADDR=45,ISTATUS=ACTIVE 

UP379017 LU L0CADDR=46,ISTATUS=ACTIVE 

UP3790I8 LU LOCADDR=47,ISTATUS=ACTIVE 

UP379019 LU L0CADDR=48,ISTATUS=ACTIVE 

UP379021 LU LOCADDRS50,ISTATUS=ACTIVE 

UP379022 LU L0CADDR=51,ISTATUS=ACTIVE 

UP379023 LU L0CADDR=52,ISTATUS=ACTIVE 

UP379024 LU L0CADDR=53,ISTATUS=ACTIVE 

UP379025 LU L0CADDR=54,ISTATUS=ACTIVE 

UP379026 LU L0CADDR=55,ISTATUS=ACTIVE 

UP379027 LU L0CADDRS56,ISTATUS=ACTIVE 

UP379028 LU L0CADDR=57,ISTATUS=ACTIVE 

UP379029 LU L0CADDR=58,ISTATUS=ACTIVE 


IBM 3650 SWITCHED DEFINITION 


X PU STATEMENT FOR 3650 * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
ST0RS1 PU ADDRSC4, CLUSTER ADDRESS = D (EBCDIC) 

PUTYPE=2* 
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SWITCHED SNA DEFINITIONS 


MAX0UT=7, 

MAXDATA=265» 

PASSLIM=5, 

PACING=(1,1), 

MAXPATH=0, 

MODETAB=ISTINCLM, 

IDBLK=005* 

IDNUM=03651, 

ISTATU5=INACTIVE* 

VPACING=(2*I)» 

IRETRY=YES 


MAX PATH INFO UNITS BEFORE RES 
6 BYTE TH, 3 BYTE RH, 256 BYTE RU 
PER INDUSTRY SPECS 

NO DIAL OUT PATH 
LOGMODE-IBM3650 
IDENTIFICATION BLOCKCURONG ?) 
IDENTIFICATION NUMBER 
ACTIVATE VIA OPERATOR 


X 

X 

X 

X 

X 

X 

X 

X 

X 


X PATH STATEMENT X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


PATH02 PATH GID=1, X 

GRPNM=SDLCGP2, NCP SWITCHED LINE GROUP(NCPRAL) X 

PID=4, ID FOR THIS PATH X 

USE=YES* X 

DIALNO=3650 

X LOGICAL UNIT SPECIFICATIONS X 

XXXXMX^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

QESTORS1 LU LOCADDR=l, REQ'D FOR 1ST LU X 

PACING=<7,1), IMPROVES LOADING 3651 X 

VPACING=C7,6), X 

ISTATUS=ACTIVE 

NOTE: 


The rest of the LU's are for backup only. The system operator must 
activate each one as needed. 


QECREDST 

LU 

L0CADDR~2* 

PACING=(0), 

VPACING=(0) 

QE3653S1 

LU 

L0CADDR=3 

QE3653S2 

LU 

L0CADDR=4 

QE3653S3 

LU 

L0CADDR=5 

QE3653S4 

LU 

L0CADDR=6 

QE3653S5 

LU 

L0CADDR=7 

QE3275S1 

LU 

LOCADDR-8 

QE3275S2 

LU 

LOCADDR=9,PACING=(2,l) 

QE3275S3 

LU 

L0CADDR=10*PACING=(2,1) 


PAGE 8-4 


SNA PRODUCT INSTALLATION GUIDE G320-6028 (2/79) 



SWITCHED SNA DEFINITIONS 

IBM 3770 SWITCHED DEFINITION 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x X 

X PU SPECIFICATION FOR IBM 3770 X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CL3770 PU ADDR-C3, PU ADDRESS = C (EBCDIC) X 

PUTYPE=2, DEFINE AS TYPE 2 PU X 

MODETAB=RJEMODE, X 

IDBLK=004, IDENTIFICATION BLOCK X 

IDNUM=03770, IDENTIFICATION NUMBER X 

MAXDATA=265» MAXIMUM AMOUNT OF DATA X 

MAXPATH=2> 2 PATHS X 

MAX0UT=7, MAX PATH INFO UNITS BEFORE RES X 

PASSIIM=7, EQUAL TO MAXOUT X 

ISTATUS=INACTIVE, ACTIVATE VIA OPERATOR X 

PACING=(1,1)> X 

VPACING=(2,1), X 

IRETRY=YES 

X x 

X 1ST PATH STATEMENT x 

X x 

xxxxxxxxxxxxxxxxxxxxxxxXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PATH03 PATH GID=1, X 

GRPNM=SDLCGP2» NCP SWITCHED LINE GROUP(NCPRAL) X 

PID=2, ID FOR THIS PU X 

DIALN0-84422215 

X X 

X 2ND FATH STATEMENT x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
PATH03B PATH GID=1, X 

GRPNM~SDLCGP2> NCP SWITCHED LINE GROUP(NCPRAL) X 

PID=3, ID FOR THIS PU X 

DIALNO-19197552215 

X x 

x IBM 3770 REQUIRES ONE LU X 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
CL3770SU LU LOCADDR=l, X 

BATCH=YES BATCH DEVICE 
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SWITCHED SNA DEFINITIONS 


IBM 3767 SWITCHED DEFINITION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X X 

X PU SPECIFICATION FOR IBM 3767 X 

X X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SD3767 


ADDR=C2» 

PUTYPE=1, 

MAXDATA=261, 

IDBLK=007» 

IDNUM=00000, 

MAXOUT=l, 

MAXPATH=0» 

PASSLIM=1 , 

ISTATUS=INACTIVE» 

PACING=(1,1), 

VPACING=(2»1)> 


PU ADDRESS = B (EBECDIC) 
TERMINAL NODEX 
MAXIMUM AMOUNT OF DATA 
IDENTIFICATION BLOCK 
IDENTIFICATION NUMBER 
MAX PATH INFO UNITS BEFORE RES 
DIAL-IN ONLY 
EQUAL TO MAXOUT 
ACTIVATE VIA OPERATOR 


IRETRY=YES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 

X NO PATH STATEMENT IBM3767 DIAL-IN ONLY x 

x x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKX 
X X 

x IBM 3767 REQUIRES ONE LU X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
TR3767SD LU LOCADDR-O, 

ISTATUS=ACTIVE» 

SSCPFM=USSSCS, 

M0DETAB=ALL3767 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


Notes- The VTAM System Programmer's Guide describes the definition of 
Switched SNA major nodes. 
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LOCAL DEVICE DEFINITIONS 


CHAPTER 1 s LOCAL DEVICE DEFINITIONS 


REFERENCES 

DOS/VS VTAM System Programmers Guide 
DOS/VS VTAM Reference Summary 
ACF/VTAM System Programmers Guide (DOS) 
ACF/VTAM Installation Guide (DOS) 

ACF/VTAM Reference Summary (DOS) 

0S/VS1 VTAM System Programmer's Guide 

OS/VS VTAM Reference Summary 

0S/VS2 SVS VTAM System Programmer's Guide 

0S/VS2 VTAM System Programming Library*VTAM 

ACF/VTAM System Programmers Guide 

ACF/VTAM Installation Guide 

ACF/VTAM Reference Summary 


GC27-6957 

GX27-0033 

SC38-0268 

SC38-0270 

SX27-3022 

GC27-6996 

GX27-0034 

GC27-0049 

GC28-0688 

SC38-0258 

SC38-0269 

SX27-3021 


G320-6028 (2/79) 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 9-1 



LOCAL DEVICE DEFINITIONS 


VBUILD MACRO SPECIFICATIONS - LOCAL 3274-1A 
LHA3274A VBUILD SUBAREA=7 »TYPE=LOCAL 


IBM 3274-1A PU DEFINITION 

LKA3274 PU BUFLIM=10, X 

CUADDR=4F0, xxx NOTE: Defined to OS as local 3791 xxx X 
DISCNT=NO, X 

ISTATUS=INACTIVE, X 

USSTAB=USST3270* X 

MAXBFRU = 15» X 

M0DETAB=MT3274A, X 

PUTYPE=2, X 

SSCPFM=USSSCS, xxx NOTE: USSSCS XXX X 

VPACIN6=0 
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LOCAL DEVICE DEFINITIONS 


IBM 3274-1A LU DEFINITION 


LHAPA01 

LU 

LHAPA02 

LU 

LHAPA03 

LU 

LHAPA04 

LU 

LHAPA05 

LU 

LHAPA06 

LU 

LKAPA07 

LU 

LHAPA08 

LU 

LKAPB01 

LU 

LHAPB02 

LU 

LHAPB03 

LU 

LHAPB04 

LU 


L0CADDR=2,ISTATUS=ACTIVE 
L0CADDR=3,ISTATUS=ACTIVE 
L0CADDR=4,ISTATUS=ACTIVE 
L0CADDR=5,ISTATUS=ACTIVE 
L0CADDR=6,ISTATUS=ACTIVE 
LOCADDR=7,ISTATUS=ACTIVE 
L0CADDR=8,ISTATUS=ACTIVE 
LOCADDR=9,ISTATUS=ACTIVE 
LOCADDR=10,ISTATUS=ACTIVE 
LOCADDR=ll,ISTATUS=ACTIVE 
L0CADDR=12,ISTATUS=ACTIVE 
L0CADDR=13,ISTATUS=ACTIVE 


xxx NOTE* LOCADDR-2 xxx 


Notes- The VTAM System Programmer's Guide describes the definition of 
Local SNA major nodes. 
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LOCALC3270) TERMINAL DEFINITION (VTAM) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

* LOCAL 3270 TERMINAL DEFINITION * 

X x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
LOCH LBUILD SUBAREA=5 SHOULD BE BETWEEN 2 AND VALUE OF MAXSUBA 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 


X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


LOCAL OPERAND OPTIONS ARE AS FOLLOWS: 

CUADDR=ADDRESS, CHANNEL ADDRESS 

TERM=3277|3284|3286, TERMINAL TYPE 

BUFLIM=NI2, READ AHEAD BUFFERS 

FEATURE2=(MQDEL1|MQDEL2, MODEL NUMBER 
ANKEYlNOANKEY, ALPHANUMERIC KEYBOARD 

DEKEY|NODEKEY, DATA-ENTRY KEYBOARD 

PFKlNOPFK, PROGRAM FUNCTION KEYS 

SELPENINOSELPEN), SELECTOR PEN 

ISTATUS=ACTIVE|INACTIVE, INITIAL VTAM STATUS 
LOGAPPL=NAME, NAME OF APPLICATION PROGRAM IF 

AUTO LOG ON WHEN TERMINAL 
IS MADE ACTIVE BY VTAM. 

LOGTAB=NAME NAME OF LOGON TABLE 


X 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


LOC20 

LOCAL 

CUADDR=020,TERM=3277,FEATUR2=(MODEL2,ANKEY,PFK), 
LOGTAB=TABLE01> LOGAPPL=NETSOL 

LOC21 

LOCAL 

CUADDR=021,TERM=3277,FEATUR2=(MODEL2,ANKEY), 

ISTATUS=INACTIVE 

L0C23 

LOCAL 

CUADDR=023,TERM=3277 , FEATUR2=CM0DEL2>ANKEY) 

L0C24 

LOCAL 

CUADDR=024,TERM=3286 


X 

X 


NOTES- Chapter 3 of the VTAM System Programmer's Guide describes the 
definition and filing of local terminals. This example will allow cause 
VTAM to 1 LOG' LOC20 on to the 'NETSOL' when 'NETSOL' is started. 
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LOCAL DEVICE DEFINITIONS 


LOCAL SNAC3790) DEFINITION(VTAM) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 


X 


* LOCAL 3790 TERMINAL DEFINITION X 

x x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


LOCAL 

VBUILD TYPE=LOCAL» 

LOCAL MAJOR NODE 

= 

X 



SUBAREA=7 

SUBAREA ADDRESS 

+ + 


LC3790 

PU 

ISTATUS=INACTIVE, 

ACTIVATE VIA OPERATOR $$ 

+ + 

X 



MAXBFRU=14, 

NO. OF BUFFERS NEEDED FOR READ 

+ + 

X 



CUADDR=010, 

3790 ADDRESS 


X 



DISCNT=N0 

HOLD CONN AFTER END OF LU SESS 

+ + 


INCL3790 

LU 

L0CADDR=1, 

IN REQ'D FOR 1ST LU FOR SSS $$ 

- 

X 



ISTATUS=ACTIVE, 

ACTIVATE WITH PU 

+ + 

X 



VPACING=<1,1) 

AVOID BUFFER FLOODING 3790 

+ 


PGM3 

LU 

L0CADDR=2, 

INTERACT LU USED FOR APPL $$ 

S 

X 



ISTATUS=ACTIVE, 

ACTIVATE WITH PU 

+ + 

X 



BUFLIM S 4* 



X 



VPACING=(1,1) 

AVOID BUFFER FLOODING 3790 

+ 



NOTES- Chapter 3 of the DOS/VS VTAM System Programmer's Guide describes 
the definition and filing of local SNA terminals. Local terminals do 
not have to be on the same control unit to be defined in a local major 
node. If the local terminals do not exist* it is better not to put them 
in the VTAM definition as VTAM tables are created for each defined 
terminal. 
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LOCAL DEVICE DEFINITIONS 


ACF/VTAM LOCAL 3277 TERMINAL DEFINITION 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 


x LOCAL 3270 TERMINAL DEFINITION X 
x x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


LBUILD SUBAREA=8 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


LOCAL OPERAND OPTIONS ARE AS FOLLOWS* 

CUADDR=ADDRESS, CHANNEL ADDRESS 

TERM=32771328413286 > TERMINAL TYPE 

BUFLIM=N12, READ AHEAD BUFFERS, 

FEATURE2=(M0DEL1|M0DEL2, MODEL NUMBER 
ANKEYINOANKEY, ALPHANIMERIC KEYBOARD 

DEKEY|NODEKEY, DATA-ENTRY KEYBOARD 

PFKINOPFK, PROGRAM FUNCTION KEYS 

SELPENlNOSELPEN), SELECTOR PEN 

ISTATUS=ACTIVE|INACTIVE, INITIAL VTAM STATUS 
LOGAPPL=NAME, NAME OF APPLICATION PROGRAM 

AUTO LOG ON WHEN TERMINAL 
IS MADE ACTIVE BY VTAM. 

DLOGMODE=S3270, DEFAULT MODETAB ENTRY 

LOGTAB=NAME NAME OF LOGON TABLE 


IF 


X 

X 

X 

X 

x 

x 

x 

X 

X 

X 

X 

X 

X 

X 

X 

X 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LU4C0 LOCAL CUADDR=4CO,TERM=3277,DLOGMOD=S3270, 

FEATUR2=CM0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 
LOGAPPL=NETSOL,L0GTAB=TABLE01 
LU4C1 LOCAL CUADDR=4C1,TERM=3277,DLOGMOD=S3270, 

FEATUR2=(M0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 
LOGAPPL=NETSOL,LOGTAB=TABLE01 
LU4C2 LOCAL CUADDR=4C2,TERM=3277,DLOGMOD=S3270, 

FEATUR2=(M0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 

LOGAPPL=NETSOL,L0GTAB=TABLE01 
LU4C3 LOCAL CUADDR=4C3,TERM=3277,DLOGMOD=S3270, 

FEATUR2=CM0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 
LOGAPPL=NETSOL» LOGTAB-TABLEOl 
LU4C4 LOCAL CUADDR=4C4,TERM=3277,DLOGMOD=S3270, 

FEATUR2=(M0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 
LOGAPPL=NETSOL,LOGTAB=TABLE01 
LU4C5 LOCAL CUADDR=4C5,TERM=3277,DLOGMOD=S3270, 

FEATUR2=CM0DEL2,ANKEY,PFK),ISTATUS=ACTIVE, 
LOGAPPL=NETSOL,LOGTAB=TABLEO! 
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MSNF NETWORK DEFINITIONS 

CHAPTER : MSNF NETWORK DEFINITIONS 


The following definitions ere samples used to define a Multidomain 
operation that allows communication between ACF/VTAM on an MVS system 
with either ACF/TCAM on a MVS system or ACF/VTAM on a DOS system. The 
cross domain path between the domains is via a multi-tailed 3705. The 
sample ACF/TCAM MCP in Chapter 6 contains the MSNF definitions for 
ACF/VTAM from the ACF/TCAM end. 


Each VTAM node in the network which wants to become an owner of a 
certain NCP must provide that VTAM node with access to the NCP 
generation Stage I input source. (Access method sends an Activate 
Physical to NCP to become an owner) The Resource Resolution Table (RRT) 
produced by Stage II of the NCP generation must also be provides to the 
host access method node (VTAM and TCAM). The NCP load modules must be 
provided to any host access method which will load the 3705. 
Installation planning should consider how these files will be provided 
to the necessary locations. This is especially important when host 
CPU's are in multiple geographic locations. 


REFERENCES 

ACF/VTAM System Programmers Guide (DOS) 
ACF/VTAM Installation Guide (DOS) 

ACF/VTAM Reference Summary (DOS) 

ACF/VTAM System Programmers Guide 
ACF/VTAM Network Operating Procedures 
ACF/VTAM Installation Guide 
ACF/VTAM Reference Summary 
ACF/iCaM General Information 


ACF/TCAM 

ACF/TCAM 

ACF/TCAM 

ACF/TCAM 

ACF/TCAM 

ACF/TCAM 

ACF/TCAM 

ACF/TCAM 


Concepts and Planning 
System Programmer's Guide 
Macro Reference Guide 
Application Programmer's Guide 
Installation and Migration Guide 
Operator's Guide 

MSNF Program Reference Summary Supplement 
Program Reference Summary 


SC38-0268 

SC38-0270 

SX27-3022 

SC38-0258 

SC38-0259 

SC38-0269 

SX27-3021 

GC30-2050 

GC30-3049 

SC30-3117 

SC30-3118 

SC30-3119 

SC30-3121 

SC30-3123 

LD21-0003 

LY30-3037 
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MSNF NETWORK DEFINITIONS 


M-I s NETWORK DEFINITIONS ( AUTO-STARTED ) 


VTAM STARTUP CONFIGURATION DEFINITION 

IMSAPAC,TSOAPAC,CICSAPAC,JESAPAC,NOSP,DSXAPPL, 
SWITCHAC,10C3272»NCPACFI , LHA3274A, 

CDRPATH*CDRML1ST>CAPLSDOS,CAPLSTCM 


The following ACF/VTAM defintions ere started at start-up time. 


VBUILD MACRO SPECIFICATIONS - CDRMs CDRMLIST (MVS SYSTEM) 


CDRMLIST 

MVSVTAM 

MVSVMVT 

MVSVMTC 

VS1VTAM 

DOSVTAM 


VBUILD TYPE=CDRM 

CDRM SUBAREA=18,ELEMENT S 1,ISTATUSsINACTIVE 

CDRM SUBAREA=13, ELEMENTS, ISTATUS=ACTIVE,VPACING=2 

CDRM SUBAREA=14, ELEMENTS, ISTATUS=ACTIVE,VPACING=2 

CDRM SUBAREA=11, ELEMENTS, ISTATUS=INACTIVE 

CDRM SUBAREA=12,ELEMENT=l,ISTATUS s ACTIVE,VPACING=2 


VBUILD MACRO SPECIFICATIONS - CDR PATHS: CDRPATH (MVS SYSTEM) 


MVSVMTC PATH 
MVSVTAM PATH 
VS1VTAM PATH 
DOSVTAM PATH 


ADJSUB=21,DESTSUB=(14) 
ADJSUB=22,DESTSUB=(18) 
ADJSUB=22,DESTSUB=(11) 
ADJSUB=21»DESTSUB=(12) 


VBUILD MACRO SPECIFICATIONS - CDRSC: CAPLSDOS (DOS APPLICATION) 

CAPLSDOS VBUILD TYPE=CDRSC 
POWER CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

CICSA CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

CICSB CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
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HSNF NETWORK DEFINITIONS 


NOSPD 

NOSPDOQO 

NOSPDOOl 

NOSPD002 

NOSPD003 

NOSPD004 

NOSPD005 


CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=D05VTAM»ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM»ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM»ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: CAPLSTCM (TCAM APPLICATIONS) 

CAPLSTCM VBUILD TYPE=CDRSC 
NDSMH CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
MHS3270 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
TSOMH CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 


11-2 : NETWORK DEFINITIONS ( ACTIVATED A£ REQUIRED ) 
The following definitions are activated as required. 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3270DOS (DOS OWNED 3270) 


C3270DOS 

LU3270V0 

LU3270V1 

LU3270V2 

LU3270V3 

LU3270V4 

LU3270V5 

LU3270V6 

LU3270V7 


VBUILD TYPE=CDRSC 
CDRSC CDRM=DOSVTAM»ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM-DOSVTAMrISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM»ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3270TCM (TCAM OWNED 3270) 


C3270TCM VBUILD TYPE=CDRSC 

LU3270V0 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
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MSNF NETWORK DEFINITIONS 


LU3270V1 

LU3270V2 

LU3270V3 

LU3270V4 

LU3270V5 

LU3270V6 

IU3270V7 


CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATU$=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3274D0S (DOS OWNED 3274) 


C3274D0S 

SDLCPA01 

SDLCPA02 

SDLCPA03 

SDLCPA04 

SDLCPA05 

SDLCPA06 

SDICPA07 

SDLCPA08 


VBUILD TYPE=CDRSC 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM*ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTABJ^-ACTTVE^ 
CDRSC CDRM=DDSVTAMTrsfATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM»ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 
CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 


VBUILD MACRO SPECIFICATIONS - CDRSC: C3274TCM (TCAM OWNED 3274) 


C3274TCM VBUILD TYPE=CDRSC 
SDLCPAOl CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA02 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA03 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA04 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA05 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA06 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA07 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
SDLCPA08 CDRSC CDRM=MVSVMTC,ISTATUS=ACTIVE 
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NOSP INSTALLATION 


CHAPTER II : NOSP INSTALLATION 


NOSP INSTALLATION PRE-PLANNING 


The following procedures should be done prior to the actual coding of 
the Network Operation Support Program (NOSP) definition statements. 


1. Pictorially define the entire network as defined by the ACF/VTAM 
and ACF/NCP programs. This definition should initially be done 
assuming that there will be only one NOSP operator who will have 
all and complete authorization for the control of the network. 
However* since in most uses of NOSP there will be multiple NOSP 
operators each of whom will control different and sometimes 
overlapping parts of the network* the initial definition should be 
designed for the future and actual operation. In other words* plan 
for at least one operator that can control the entire network* and 
additional operators that have limited spans of control. 

Terminals that may be NOSP operator stations must be defined ahead 
of time. Likewise* NOSP hardcopy terminals must be predefined. 
Part of the network definition must be to determine which LU f s will 
be used as operator stations and hardcopy printers and what their 
various spans of control will be. 

The people involved in the definition of the control of the network 
should include ACF/VTAM systems programmers as well as Operations 
personnel. This will insure that the operational aspects are 
thorough as well as practical. After all* it will be the 
Operations staff who will be using the product. 

2. After the pictorial definition is complete* coding of the initial 
and single NOSP operator concept should take into consideration the 
future spans which will be assigned to other NOSP operators. By 
using this coding approach you will avoid having to recode the NOSP 
definition for the final configuration. 

3. NOSP only requires the "SPAN" parameter if specific profiles are 
used. If you intend to have all global operators then omit the 
"SPAN” parameter. CAUTION: If you intend to run NOSP in a 
multidomain environment then omit the "SPAN" parameter. (See the 
example for coding RRD statements.) 
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NOSP INSTALLATION 


If specific profiles are used then NOSP requires that the 'SPAN* 
parameter be coded in the ACF/VTAM definition program, it Mould be 
judicious to plan for the inclusion of NOSP as early as possible. 
ACF/NCP and NCP/VS (5.0) will both ignore this parameter, thus it 
can be coded even before NOSP is installed. The only thing that 
might cause a recoding of the 'spanname' is that the network 
control definition is not complete at the time of the network 
definition. But since this is a VTAM parameter, it takes effect at 
VTAM initialization and can be easily changed. CAUTION* Always 
place spanname in parenthesis, eg SPAN=(spanname). 

4. The various NOSP definitions are stored as several individual 
members in the NOSP data sets as opposed to, say, VTAM which has a 
single member for the definition of the network which is running at 
the time. Thus in order to ease your definition of the NOSP 
members, define one span of control at a time (as shown by your 
pictorial configuration). 

5. To ease and confine the extent of the NOSP testing, bring up a 
single NOSP definition which controls the entire network. This 
test will check that the NOSP program and commands are working. As 
mentioned previously you will probably want to keep at least one 
operator in your final defintior, that has this global authority. 

6. The next level of testing should be to define another NOSP operator 
in this 5ingle NOSP environment. This is done by adding another 
set of OPERATOR and PROFILE definitions to the NOSP definition. 
Keep the original (and completely authorized) operator definition 
intact. You will always want to have one operator who has the 
authority to control all of the network. After this definition is 
complete, then bring up and test all of the commands and extents of 
this operators control in the network. 

Continue doing this step as many times as there are NOSP operators 
to be defined in this NOSP definition. However, be sure to do this 
for only one operator at a time to assure that the testing is 
complete and controllable. 

7. After the complete single NOSP definition is completely tested and 
is operational the way desired, and if there is to be more than one 
domain in the network, then start the NOSP definition for the next 
domain. Again, you want to step through the NOSP definition and 
testing one step at a time. 

8. When two (or more) NOSP domain definitions are complete and working 
individually as desired, then test them together. Again, if there 
are other domains to be included, bring them on one at a time. 
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NOSP DOCUMENTATION 

NOSP General Information GC38-0251 
NOSP Program Product Specifications GC38-Q277 
NOSP Program Information and Maintenance Manual SC38-0278 
NOSP Operators Manual SC38-0281 
NOSP Logic LY27-8026 


NOSP INSTALLATION STEPS 


1. Install NOSP distribution tape and apply necessary PTF f s. 


2. Code and file NOSP definition statements. These statements may be 
filed as members in the ACF/VTAM definition library (SYS1.VTAMLST)* 
or may be put into any partitioned data set.The following members are 
defined and filed* 

MEMBER CONTENTS 


a. DSIOPF OPERATOR and PROFILEN statements to define all 

operators* their passwords* and point to their 
profiles.(See example 1). 


b. User defined 
proflie name 


PROFILE* ISPAN* SPAN* DOMAINS, and AUTH statements 
to define the operators span of control. 

(See example 2). 


c. DSISPN 


d. DSIDMN 


SPANLIST which associates spans and major nodes. 
Defer this member until you need operators with 
specific profiles. Be sure to specify all defined 
profile names as valid for the master terminal 
operator or Systems Programmer. NOSP may be 
checked out with one operator by logging on with 
different profiles. 

OPERATOR 

PROFILEN profl*prof2*....(profl is the default) 

NOSPID* POS, HARDCOPY, RRD, CDMNSESS* MAXSPAN* 
MAXABEND* and MAXLOGON which specify system 
information for NOSP as a whole* rather than a 
particular operator. (See example 3). 

MAXABEND should be a low number 2 or 3. This 
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number determines when NOSP Mill place a 
device in ERROR status. If a device 
is NOT in error status, (ie. MAXABEND has 
not been reached) then the MOVE command will 
not work. MAXLOGON should be about 2 or 3. 

When this number is reached because of incorrect 
information on the logon screen, NOSP issues 
CLSDST RELEASE. 

e. DSICMD CMDMDL and PARMSYN which define all valid 

commands, including standard VTAM commands, that 
may be entered from a NOSP terminal. These 
statements may point to command lists or command 
processors. (See example 4). 

f. User command Command list(s). (See example 5). 
list name(s) 

3. Create NOSP start procedure using a dataset for disk logging of all 
messages if desired. (See example 6). 

4. Code, assemble, and linkedit any desired command processors and/or 
user exits. Defer this step until you are sure you need them. Once 
an exit is there it cannot be disabled. 

5. Add NOSP APPL statements to current APPL major node or create a new 
major node and include it in the configuration list (ATCCONxx). (See 
example 7). 

6. Modify logon mode tables. NOSP requires a mode table ENTRY of 
DSILGMOD for its bind. Therefore, each terminal type that uses NOSP 
must have a separate logon mode table with a DSILGMOD entry in it. 
(See example 8). 

7. Update USS tables and logon intrepet tables as necessary for NOSP 
logon. (See examples 9 and 10). 

8. Create procedure for printing a hard copy of N0SP f s disk log. (See 
example 11). 
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NOSP OPERATIONAL CONSIDERATIONS 

1. VTAM messages Mill no longer go to the system console* they Mill go 

to the NOSP operator and the hard copy log. System operators Mill no 
longer be aware of many netMork problems* for example* line and modem 
problems. This* of course* is the intention of NOSP but it Mill 
require some operational changes that must be planned for. In 

addition it Mill require good communication betMeen the system 
operators and the NOSP operators. 

2. PFK's can be used for standard commands but cannot be used to point 

to a CLIST since a member name beginning Mith a numeric is not 
alloMed by the Operating System. This may be handled by an exit 

routine (DSIEXQ1) Mhich converts PFK input to something that begins 
Mith an alpha character* eg. convert 1 to PI* 2 to P2* etc. Then the 
member that DSICCP reads and executes Mill be PI* P2* etc. 

3. Since NOSP operator terminals and hardcopy log must be predefined to 

NOSP by their LU name* some consideration should be given to a backup 
plan. If a NOSP terminal is unavailable for some reason (terminal 
problem* line problem* etc.) it Mould be ideal to have a backup 

terminal already defined. In this case the operator could move to 

the backup terminal* sign on and resume operation. In the case of a 
hardcopy log* the START and STOP commands may be used to change to a 
backup printer. 

4. It is probably advisable to have at least one local NOSP operator 
station. In the case that the NCP becomes unavailable* it Mill be 
valuable to have a local operator Mho Mill be notified and take any 
recovery action necessary. 

5. To terminate NOSP* any NOSP operator or the system operator can 
request a CLOSE. If a CLOSE IMMED is requested* NOSP abends and is 
terminated immediately. If entered Mithout IMMED (the usual method 
of termination)* each terminal Mill be sent a message that 
termination has been requested. Before termination occurs* all 
operators must logoff. The hardcopy terminal Mill be automatically 
logged off Mhen the last operator using it logs off. 

6. You MUST code FEATUR2=(M0DEL2) on ALL 3270 definitions. Default is 
model 1 and NOSP does not support this terminal type. (The ACF/VTAM 
Systems Programmer’s Guide left out the defaults.) 

7. For NOSP in multiple domains you must have a BIND image and CDRSC 
definitions. 

a. Here is the logmode entry for NOSP-to-NOSP sessions. Either same 
domain or X-domain. 
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NOSPXDOM MODETAB 

DSILGMOD MODEENT LOGMODE=DSILGMOD,FMPRCF=X'03•,TSPROF=X'03', X 

PRIPROT=X»20 *,SECPROT=X'20•,COMPROT=X'4000', X 

PSERVIC=X’000000000000000000000000 T ,RUSIZES=X , 86A3' 
MODEEND 
END 

b. Here is the CDRSC definition if NQSPD were cross-domain to N0SP1 

./ ADD NAME=N0SP2MJX 
CDN0SP2 VBUILD TYPE=CDRSC 

NOSPD CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

NOSPD000 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

NOSPD001 CDRSC CDRM=DOSVTAM>ISTATUS=ACTIVE 

NOSPD002 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

NOSPD003 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

NOSPD004 CDRSC CDRM=DOSVTAM,ISTATUS=ACTIVE 

8. For an operator with a specific profile to go cross domain you MUST 

code DOMAINS statement(s) in the PROFILE. 

9. Do not use span of control initially. BE VERY CAREFUL about 
attempting to use span of control along with RRD statements in a 
multidomain environment. If you are planning to install NOSP in a 
single domain first then go to multiple domains DO NOT USE SPECIFIC 
profiles and RRD statements at all. You must CLEARLY understand the 
NOSP tables before undertaking such an environment. 
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SPECIAL NOSP INSTALLATION CONSIDERATIONS 

Five things must be done in order to implement SPECIFIC profiles and 

span of control. 

1. You must code MAXSPAN in the DSIDMN member otherwise NOSP will not 

read the DSISPN member. This number should be a multiple of 8 and 

MUST be greater than or equal to the number of unique span names. If 
you don f t do this NOSP will not initialize. 

2. You must code ISPAN and/or SPAN statements in the PROFILE. 

3. You must code AUTH CTL=SPECIFIC or let it default. 

4. You must place SPANLIST statements in member DSISPN which point to 

the VTAM major node name. Failure to find a major node in VTAMLST 

will terminate NOSP initialization. 

5. You must code SPAN= on EVERY resource in EVERY node which you want to 

be placed under control of an operator using a specific profile. 
NOTEs These five steps will cause the ART to be built in memory. It 

is sorted alphabetically after the names are read from VTAMLST. 

Duplicate names are merged into a single entry. If you leave off 

SPAN= from any node name (LINE* PU* or LU) then NOSP will not place 

the name in the ART. If a name is not in the ART then an operator 
using a specific profile can NEVER reference the resource. 
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NOSP INSTALLATION EXAMPLES 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XX These examples define a single domain environment with two NOSP 

XX operators* both with global authority* and a hardcopy log. 

XXXXXXXXXXXXXXXXXXXXXXXXX3&XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1. DSIOPF Example 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
./ ADD NAME=DSIOPF 
0PER1 OPERATOR PASSWORD=AaA 

PROFILEN PR0F1 

0PER2 OPERATOR PASSWORD=BBB 

PROFILEN PR0F1 
END 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2. PR0F1- Example of profile pointed to by PROFILEN of DSIOPF 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

./ ADD NAME=PR0F1 

PR0F1 PROFILE HCL=LU3270V0 

AUTH CTL=GLOBAL,MSGRECVR=YES 
END 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

3. DSIDMN Example 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
./ ADD NAME=DSIDMN 
D1 NOSPID D0MAINID=N0SP1 

POS LU4C3*SDLCPA01*LU3270V3* LHAPA03* LU4D7 
HARDCOPY LU3270V0 

NOSPD RRD DUMMY (Defines NOSPD to N0SP1 for global Operators) 

MAXABEND 3 
MAXLOGON 3 
END 

4. DSICMD Example** 

This member includes all standard NOSP and VTAM commands. 

It also has four user defined command lists. A clist definition 
must have MOD=DSICCP coded. Whenever a clist name is found the 
module DSICCP is invoked. This module processes all clists. 

NOTE? Be sure to code ALL immediate commands as shown. 

./ ADD NAME=DSICMD 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

* IMMEDIATE COMMANDS X 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXX 

AUTO CMDMDL MOD=DSIAWP,TYPE=I 

AUTOWRAP CMDMDL MOD=DSIAWP,TYPE=I 

CANCEL CMDMDL MOD=DSICAP,TYPE=I 

CLOSE CMDMDL MOD=DSICLP,TYPE=I 

60 CMDMDL MOD=DSIGOP,TYPE=I 

RESET CMDMDL MOD=DSIRSP,TYPE=I 

CLEAR CMDMDL MOD=DSICKP,TYPE=B 

x The above command name allows the word "CLEAR" to appear in 
x command lists to force a clear screen when desired. 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X These three special symbols must be defined or the 
X associated key will not work at all!!! 

f CMDMDL MOD=DSINDP,TYPE=I,CTL=S ENTER KEY W/ODATA CX*7D'> QUOTE 

CMDMDL MOD=DSICKP,TYPE=I,CTL=S CLEAR KEY CX’6D f > UNDERSCORE 
> CMDMDL MOD=DSINDP,TYPE=I,CTL=S PA2 KEY W/ODATA (X'7D') QUOTE 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X REGULAR COMMANDS X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
AGAIN CMDMDL MOD=DSIAGAIN 

X SHORT FORM OF LIST COMMAND 
L CMDMDL MOD=DSISHP 

PARMSYN CL 1ST,CL 
PARMSYN PROFILE,PR 
PARMSYN SPAN,SP 
PARMSYN STATUS,ST 
PARMSYN TASKS,TAS 
PARMSYN SPANS,SPA 
PARMSYN PROFILES,PRO 
LIST CMDMDL MOD=DSISHP 

PARMSYN CLIST,CL 
PARMSYN PROFILE,PR 
PARMSYN SPAN,SP 
PARMSYN STATUS,ST 
PARMSYN TASKS,TAS 
PARMSYN SPANS,SPA 
PARMSYN PROFILES,PRO 
LOG CMDMDL MOD=DSIENP 

LOGOFF CMDMDL MOD=DSIENP 

MOVE CMDMDL MOD=DSISWP 

MSG CMDMDL MOD=DSIMGP 

PAUSE CMDMDL MOD=DSIPSP 

ROUTE CMDMDL MOD=DSIRTP 

RO CMDMDL MOD=DSIRTP 

START CMDMDL MOD=DSISRP 

PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
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PARMSYN SPAN»SP 
PARMSYN RESOURCE,RE 
X SHORT FORM OF START COMMAND 
S CMDMDL MOD=DSISRP 

PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
PARMSYN SPAN,SP 
PARMSYN RESOURCE,RE 
STOP CMDMDL MOD=DSISTP 
PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
PARMSYN SPAN,SP 
PARMSYN RESOURCE,RE 
X SHORT FORM OF STOP COMMAND 
P CMDMDL MOD=DSISTP 

PARMSYN HCL,HC 
PARMSYN DOMAIN,DO 
PARMSYN TERM,TE 
PARMSYN SPAN.SP 
PARMSYN RESOURCE,RE 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X VTAM COMMANDS X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

D CMDMDL MOD=DSIVTP 

DISPLAY CMDMDL MOD=DSIVTP 

F CMDMDL MOD=DSIVTP 

MODIFY CMDMDL MOD=DSIVTP 

R CMDMDL MOD=DSIREP 

REPLY CMDMDL MOD=DSIREP 

V CMDMDL MOD=DSIVTP 

VARY CMDMDL MOD=DSIVTP 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X YOUR COMMAND LIST NAMES 60 HERE 
X THE MODULE NAME MUST BE DSICCP 
X NAME CMDMDL MOD=DSICCP 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

ACT CMDMDL MOD=DSICCP 

INACT CMDMDL MOD=DSICCP 

TRACE CMDMDL MOD=DSICCP 

NOTRACE CMDMDL MOD=DSICCP 

END 


5. Command Lists 
XXXCLIST to vary active: ACT 
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./ ADD NAME=ACT 
VARY NET,ACT,ID=&1 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXCLIST to vary inactive: INACT 

./ ADD NAME=INACT 
VARY NET,INACT,ID=&1,&2 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXCLIST to start io and buffer trace: TRACE 

./ ADD NAME=TRACE 
F NET,TRACE,ID=S1,TYPE=IO 
F NET,TRACE,ID=&1,TYPE=BUF 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXCLIST to stop io and buffer trace: NOTRACE 

./ ADD NAME=NOTRACE 
F NET,NOTRACE,ID=X1,TYPE=I0 
F NET,NOTRACE,ID=&1,TYPE=BUF 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

6. NOSP start procedure 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXThe first step of the procedure is to delete the NOSP disk log 
xxxsince it will be used again. The NOSP program is linked under 
*xxthe name DSIMNT. All the NOSP definition members are filed in 
XXXa PDS named NOSP.CMND.LIST. 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

//NOSP JOB 

//ACFN0S1 EXEC PGM=IEFBR14,REGI0N=512K 

//DD1 DD DSN=N0SPL0G,DISP=(0LD,DELETE,DELETE),VOL=SER=nnnnnn, 

// UNIT=3340 

//STEP2 EXEC PGM=DSIMNT,TIME=1440,REGION=1024K 
//SYSPRINT DD SYS0UT=A 
//SYSUDUMP DD SYS0UT=A 

//DSICLD DD DSN=N0SP.CMND.LIST,DISP=SHR 
//DSIPARM DD DSN=N0SP.CMND.LIST,DISP=SHR 
//DSIVTAM DD DSN=SYS1.VTAMLST,DISP=SHR 
//DSIPRF DD DSN=N0SP.CMND.LIST,DISP=SHR 

//DSILOG DD DSN=N0SPL0G,V0L=SER=nnnnnn,SPACE=(CYL,C2,l>), 
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// DCB=(LRECL=344,BLKSIZE=900,RECFM=VB,DSORG=PS),UNIT=3340, 

// DISP=(NEW,KEEP) 

The PRINTLOG should be e step that prints the log or dumps it to 
tape. C0ND=EVEN should be coded, else if you forget to run the 
printlog then you will lose the data. 

7. NOSP APPL statements 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

N0SP1 and N0SP1PPT are activated when NOSP is started. In addition, 
a subtask Mill be activated at startup for each hardcopy log 
specified in the HCL parameter of the PROFILE statement. The other 
subtasks will become active as operators sign on. This definition 
allows five operators and/or hardcopy logs to be active concurrently, 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
H1APPLS VBUILD TYPE=APPL 

N0SP1 APPL AUTH=(ACQ,PASS,NVPACE),PRTCT s NOSPl,EAS=1 

N0SP1PPT APPL AUTH=CPP0),EAS=1 

NOSPIOOO APPL AUTH=(SP0,ACQ,NVPACE),EAS=2 

NOSPlOOl APPL AUTH=(SP0,ACQ,NVPACE),EAS=2 

NOSP1002 APPL AUTH=(SP0,ACQ,NVPACE),EAS=2 

NOSP1003 APPL AUTH=(SP0,ACQ,NVPACE),EAS=2 

NOSP1004 APPL AUTH=(SP0,ACQ,NVPACE),EAS=2 

Note? EAS should be greater than or equal to the number of domains. 


8. Logon Mode Table entry 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X MODE TABLE FOR 3277 LOCAL OR REMOTE MOD 1/2 AND 11/12 FOR NOSP 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NOSPTAB MODETAB 

MODEENT L0GM0DE=DSILGM0D, 

FMPR0F=X* 02',TSPR0F=X’02»,PRIPROT=X'71*, 

SECPROT=X , 40’,COMPROT = X f 2000',RUSIZES=X'0000', 

PSERVIC=X»000000000000000000000200' 

MODEEND 
END 


9. USS Table 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
*XX This USS table entry allows the operator to sign on to NOSP by 
keying in NOSP. N0SP1 is the name on the first APPL statement, 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
NOSP USSCMD CMD=NOSP,REP=LOGON,FORMAT=BAL 
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USSPARM PARM=APPLID,REP=APPLID,DEFAULT=NOSPl 
USSPARM PARM=LOGMODE,REP=LOGMODE,DEFAULT=DSILGMOD 
USSPARM PARM=P1,REP=DATA 


10. Logon Intrepet Table 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
xxx Make sure to put in both upper and lower case entry since NETSOL 
does not translate. 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LOGTAB INTAB 

X 

X 

LOGCHAR APPLID=(APPLICID,N0SP1),SEQNCE =, NOSP* 

LOGCHAR APPLID=(APPLICID,NOSPl),SEQNCE='nosp' 

X 

x 

ENDINTAB 

END 


11. Procedure for printing disk log 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

//NOSPRT EXEC PGM=DSIPRT 

//DSILOG DD DSN=N0SPL0G,V0L=SER=nnnnnn,UNIT=3340, 

// DCB=(LRECL=344»BLKSIZE=900 *RECFM=VB*DSORG=PS)»DISP=(OLD*KEEP) 
//DSIINP DD DUMMY,DCB=CBLKSIZE=80) 

//DSILST DD SYS0UT=A,DCB=(BLKSIZE=133) 

//SYSPRINT DD SYSOUT=A 
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NOSP FLOW 


This is a very brief overview of some NOSP processing logic. 

It is related to the above examples of a single domain system. 

This logic flow does not include all exit processing, does not 
include much of the communication with the system operator, does 
not include the handling of unsolicited messages from VTAN, nor 
does it include error processing. It is intended to help show how 
the various dataset members, CLISTS, user exits, and command 
processors are used during NOSP execution. 

AN * beside a member or dataset name means they may be user defined. 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

INPUT USED ACTIVITY 

1. Start-up Start-up proc NOSP is started. 

The member DSICND is read 
into main storage at init. time. 

All exits must be placed 
in the LINKLIB in the form 
DSIEXnn (nn=01 thru 14). 

These are loaded at init. time. 

(See example 6) 

APPL statements Activate N0SP1. 

(See example 7) 

Activate N0SP1PPT. 

Profile statement Activate 1 subtask for each hardcopy 
(See example 2) log (HCL) specified. 

Leave outstanding message for system 
operator to enter valid NOSP system 
operator command. 

Wait for logons (assuming no automatic 
logons). 

2. Logon USSTAB, NODETAB, Operator enters logon for NOSP. 

LOG. INTREP. TABLE 
(See ex. 8-9-10) 

Nosp displays logon screen. 

Operator keys id and password. 

DSIOPF member of NOSP validates id and password. 
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NOSP.CMND.LIST* 

(See example 1) 

APPL statements NOSP opens ACB for this operator 
(See example 6) subtask (need APPL statement which 

will be activated). 

PROFIT member of Acquire hardcopy log (HCL) for this 
NOSP.CMND.LIST* operator if specified? or if already 

acquired on behalf of another 
operator? then begin sending traffic 
to the Hardcopy Task. 

Display message to operator? send 
message to hardcopy log and disk log. 

Operator enters command. 

DSIEX01 member Execute user exit if present, 
of LINKLIB* 

Validate command syntax. 

DSICMD member of Search for entry with label = the 
NOSP.CMND.LIST* verb (eg. VARY). 

Send message to operator that 
command was accepted? log request 
and NOSP response on hardcopy log 
and disk log. (Execute DSIEX02 and 
DSIEX04, if they exist). 

If NOSP cannot find the command 
name in the System Command Table 
or if the name points to 
MOD=DSICCP and the CLIST 
is NOT on disk the same 
error message is produced. 

Execute code in member that is 
specified in MOD parameter of 
DSICMD entry. This may be a NOSP 
supplied member or a user written 
command processor. 

This logic is used only when the 
MOD specified was DSICCP? which 
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3• Command 
Execution 
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must be the MOD for all command 
lists. 

ACT*/ TRACE*/ DSICCP searches for 'member' with 

etc. members of same name as this user-defined 
NOSP.CMND.LIST* command verb (eg. ACT/ TRACE). 

Command list is executed in sequence. 

This logic is used only when the 
command is a standard VTAM command. 
Mhen a VTAM command is entered 
then DSIVTP is the command processor 
which is invoked. If an operator 
is using a SPECIFIC profile than the 
SPAN is checked by this module. 

DSIEX05 member Execute user written exit/ if there, 
of LINKLIB* 

Send command to VTAM for execution 
and wait for response (SENDCMD and 
RECVCMD of VTAM'S programmed operator 
facility-POF). 

DSIEX06 member Execute user written exit/ if there, 
of LINKLIB* 


6. Command DSIEX02 member Execute user written exit/ if there. 

Output of LINKLIB* 

If you delete a message in DSIEX02 
then it will not be logged 
on the disk or HARDCOPY. 

Send response to command to operator. 

DSIEX04 member Execute user written exit if there, 
of LINKLIB* 

Log response on hardcopy log. 

Log response on disk log. 

Return to Command Execution (#3). 

7. Logoff Operator enters LOGOFF. 


5. VTAM 
COMMANDS 
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8. Terminating 
NOSP 


DSIEX14 member Execute user Mritten exit, if there, 
of LINKLIB* 


Close ACB* subtask becomes inactive* 
terminate session Nith hardcopy log 
and deactivate its subtask if no other 
operators are using it. 

Send message to operator* log on 
hardcopy and disk. 

NOSP or System operator enters CLOSE* 

If CLOSE IMMED Mas entered* all 
subtasks Mill be deactivated Mithout 
messages and NOSP Mill be ABENDED. 

If just CLOSE Mas entered* a message 
is sent to each active operator and 
the system console. No more logons 
are accepted. 

Hhen the last operator has logged 
off* all ACB's Mill be closed and 
NOSP Mill be ended normally. 


6320*6028 (2/79) 


SNA PRODUCT INSTALLATION GUIDE 


PAGE 11-17 



NOSP INSTALLATION 



PAGE 11-18 


SNA PRODUCT INSTALLATION GUIDE 


G320-6028 (2/79) 



SNA APPLICATION INTERFACE (CICS) 


CHAPTER 12 * SNA APPLICATION INTERFACES 


This section contains sample generation or system definitions for 
some of the common SNA application programs. 
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£1.4 TERMINAL CONTROL TABLE ( DFHTCT ) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXX 

xxxx xxxx 

XXX TCT FOR MVS A ISC SYSTEM xxx 

xxxx xxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
DFHTCT TYPE=INITIAL»ACCMETH=(NONVTAM,VTAM),APPLID=CICSMA, 

RAMAX=256,RAMIN=0,RATIMES=8,RAPOOL=2,RESP=FME,SUFFIX=MA, 
GMTEXT='YOU ARE CONNECTED TO MVS CICS A' 


xxxxxxxxxxxxxxxxxxxxxxx 
xxxx ENTRIES FOR BSC3770 (AS 2770) xxxx 
xxxxxxxxxxxxxxxxxxxxxxx 

DFHTCT TYPE=SDSCI,DEVICE=2770,DSCNAME=P2770,BSCODE=EBCDIC 
PLST770 DFTRMLST AUTOWLST,(C1C1F02D,37373737) 

OLST770 DFTRMLST OPENLST,(81811X20) 

DFHTCT TYPE=LINE,ACCMETH=BTAM,TRMTYPE=2770,DSCNAME=P2770, 
BTAMRLN=1,TCTUAL=20,INAREAL=517, 

FEATURE=(AUTOPOLL)> LISTADR=(PLST770,WRAP)*GENPOLL=YES» 
CLASS=(HARDCOPY*BISYNC,CONV) 

PC74 DFHTCT TYPE S TERMINAL»TRMPRTY = 10 0*TRMTYPE=2770*TRMIDNT=PC74» 
TIOAL=517,TRMSTAT=TRANSCEIVE,TCTUAL=20,LASTTRM=LINE, 
BUFFER=256,TRMADDR=0LST77 0 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXXX THE FOLLOWING ENTRIES ARE FOR VTAM TERMINALS ONLY xxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
x ISC LINKS x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

MVSB DFHTCT TYPE=ISLINK,ACCMETH=VTAM,SYSIDNT=MVSB,NETNAME=CICSMB, 

TRMIDNT=MVSB,SESTYPE=5END» CHNASSY=YES, 
RUSIZE=512,BUFFER=512,TI0AL=512,TRMSTAT=TRANSCEIVE 

X 

DOSB DFHTCT TYPE=ISLINK,ACCMETH=VTAM,SYSIDNT=DOSB,NETNAME=CICSDB, 

TRMIDNT=DOSB,SESTYPE=SEND,CHNASSY=YES, 
RUSIZE=512»BUFFER=512,TI0AL = 512,TRMSTAT=TRANSCEIVE 
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CICS LOCAL 3272 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X LOCAL 3272 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LOCO DFHTCT TYPE=TERMINAL»TRMIDNT=LOCO,TRMTYPE=3277>TRMMODL S 2» 
ACCMETH=VTAM,TIOAL=1500,TRMSTAT=TRANSCEIVE, 
NETNAME=LU4C0,RELREQ=(YES,YES),TCTUAL=20, 
BMSFEAT=NOROUTEALL,FEATURE=CDCKYBD),GMMSG=YES 


CICS REMOTE 3271 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X REMOTE 3271 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LUVO DFHTCT TYPE S TERMINAL,TRMIDNT=L U V 0 > TRMTYPE=3277»TRMMODL s 2 , 
ACCMETH=VTAM,TIOAL=1500,NETNAME=LU3270V0,GMMSG=YES, 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES),TCTUAL=20, 
FEATURE 2 (DCKYBD»SELCTPEN) 
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CICS LOCAL 3274 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

* LOCAL 3274-1A * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LA01 DFHTCT TYPE 3 TERMINAL » TRMIDNT=LAO1>TRMTYPE=LUTYPE2,TRMMODL 3 !, X 


ACCMETH=VTAM,TIOAL 3 (1024,4096),NETNAME=LHAPA01, X 
TRMSTAT=TRANSCEIVE,RELREQ 3 (YES,YES)»CONNECT 3 NO» X 
FEATURE 3 (DCKYBD*$ELCTPEN»AUDALARM,UCTRAN),GMMSG=YES, X 
RUSIZE=1024,BRACKET=YES,PGESIZE 3 (12,40),BUFFER=1536, X 
PRINTTO=LA07,ALTPRT=LA08,PGESTAT=PAGE,CHNASSY=YES, X 
ALTPGE 3 (12,80>,DEFSCRN=(12,40),ALTSCRN=(12,80) 


LA02 DFHTCT TYPE 3 TERMINAL,TRMIDNT=LA02,TRMTYPE=LUTYPE2,TRMMODL 3 2, 
ACCMETH 3 VTAM,TI0AL 3 (1024,4096)»NETNAME=LHAPA02> 
TRMSTAT 3 TRANSCEIVE,RELREQ 3 (YES,YES),CONNECT=NO, 

FEATURE 3 (DCKYBD»SELCTPEN,AUDALARM,UCTRAN),GMMSG=YES» 
RUSIZE=1024,BRACKET 3 YES,PGESIZE=(24,80),BUFFER=1536, 
PRINTT0 3 LA07,ALTPRT 3 LA08,PGESTAT=PAGE,CHNASSY=YES, 
ALTPGE=(43,80),DEFSCRN=(24,80),ALTSCRN=(43,80) 

LA07 DFHTCT TYPE 3 TERMINAL,TRMIDNT 3 LA07,TRMTYPE=LUTYPE3,TRMMODL 3 2, 

ACCMETH=VTAM,NETNAME 3 LHAPA07,BUFFER 3 1536, 
TRMSTAT 3 TRANSCEIVE 

LA08 DFHTCT TYPE=TERMINAL,TRMIDNT 3 LA08,TRMTYPE=SCSPRT,TRMMODL 3 2, 

ACCMETH=VTAM,NETNAME=LHAPA08,BUFFER=1536, 

TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 
LB01 DFHTCT TYPE 3 TERMINAL,TRMIDNT 3 LB01,TRMTYPE=LUTYPE2,TRMMODL=2, X 


ACCMETH 3 VTAM,TIOAL=(1024,4096),NETNAME 3 LHAPB01, X 
TRMSTAT=TRANSCEIVE,RELREQ 3 (YES,YES),CONNECT 3 NO, X 
FEATURE 3 (DCKYBD,SELCTPEN,AUDALARM,UCTRAN),GMMSG 3 YES, X 
RUSIZE 3 1024,BRACKET 3 YES,PGESIZE 3 (24,80),BUFFER 3 1536, X 
PGESTAT=PAGE,CHNASSY=YES 
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CICS REMOTE 3274 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X REMOTE 3274-1C X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PA01 DFHTCT TYPE=TERMINAL ,TRMIDNT=PA01,TRMTYPE=LUTYPE2,TRMM0DL=2, X 


ACCMETH=VTAM,TIOAL=(1024,4096)> NETNAME=SDLCPAO1, X 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES),CONNECT=NO, X 
FEATURE=(DCKYBD,SELCTPEN»AUDALARM,UCTRAN>PTRADAPT)» X 
BUFFER=0,RUSIZE=1024» BRACKET=YES,PGESIZE=(24,80), X 
ALTPGE 2 (43,80)»DEFSCRN=(24,80)»ALTSCRN=(43,80), X 
PGESTAT=PAGE,CHNASSY=YES,GMMSG=YES 


PA07 DFHTCT TYPE=TERMINAl,TRMIDNT=PA07,TRMTYPE=LUTYPE3,TRMMODL=2, 

ACCMETH=VTAM,NETNAME=SDLCPA07,BUFFER=0, 
TRMSTAT=TRANSCEIVE 

PA08 DFHTCT TYPE = TERMINAL,TRMIDNT=PA08,TRMTYPE s SCSPRT,TRMMODL =2, 

ACCMETH=VTAM,NETNAME=SDLCPA08,BUFFER=1024, 

TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 

PB01 DFHTCT TYPE=TERMINAL,TRMIDNT=PB01,TRMTYPE=LUTYPE2,TRMMODL=2, 

ACCMETH=VTAM,TIOAL=(1024,4096),NETNAME=SDLCPB01, 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES),CONNECT=NO, 
FEATURE=< DCKYBD,SELCTPEN,AUDALARM,UCTRAN).GMMSG=YES, 
BUFFER=0,RUSIZE : 1024,BRACKET s YES,PGESIZE s (24,80), 
PGESTAT S PAGE,CHNASSY=YES 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X REMOTE 3276 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

P761 DFHTCT TYPE=TERMINAl,TRMIDNT=P761,TRMTYPE=LUTYPE2,TRMM0DL=2, 

ACCMETH S VTAM,TIOAL=(2048,4096),NETNAME=SDLC76P1, 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES),CONNECT=NO, 
FEATURE 2 (DCKYBD,SELCTPEN,AUDALARM,UCTRAN,PTRADAPT), 
BUFFER=0,RUSIZE=2048,BRACKET=YES,PGESIZE=(24,80), 
ALTPGE=(24,80),DEFSCRN=(24,80),ALTSCRN=(24,80), 
PGESTAT=PAGE,CHNASSY=YES,GMMSG=YES 

P767 DFHTCT TYPE=TERMINAL,TRMIDNT=P767,TRMTYPE=LUTYPE3,TRMM0DL=2, 

ACCMETH=VTAM,NETNAME=SDLC76P7,BUFFER=0, 
TRMSTAT=TRANSCEIVE 

P768 DFHTCT TYPE=TERMINAL,TRMIDNT=P768,TRMTYPE=SCSPRT,TRMM0DL=2, 

ACCMETH=VTAM,NETNAME=SDLC76P8,BUFFER=1024, 
TRMSTAT=TRANSCEIVE,HF=YES,VF=YES 
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SNA APPLICATION INTERFACE (CICS) 


CICS REMOTE 3767 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X REMOTE 3767 * 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LU67V DFHTCT TYPE=TERMINAL,TRMIDNT=LU67V,TRMTYPE=3767, 

ACCMETH=VTAM,TI0AL=(256,768),NETNAME=TR3767V, 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES),PGESTAT=PAGE, 
PGESIZE=(12,80 >,BUFFER=256,BRACKET=YES,CHNASSY=YES 
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XXX 



SNA APPLICATION INTERFACE (CICS) 


CICS REMOTE 3774 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X REMOTE 3774 X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LU71 DFHTCT TYPE=TERMINAL»TRMIDNT=LU71»TRMTYPE=BCHLU» 

ACCMETH=VTAM,TIOAL=(256,1024),RUSIZE=256, 
TRM$TAT=TRANSCEIVE,RELREQ=CYES,YES),PGESTAT=PAGE, 
PGESIZE=(12,80)> BU FFER=256 > BRACKET s YES»CHNASSY s YES, 
NETNAME=P70LU1 

LU72 DFHTCT TYPE=TERMINAL >TRMIDNT=LU72,TRMTYPE=LUTYPE2» 

ACCMETH=VTAM,TI0AL=<256,2048),RUSIZE=256, 
TRMSTAT=TRANSCEIVE,RELREQ=CYES,YES),PGESTAT=PAGE, 
PGESIZE=(12,80),BUFFER=256»BRACKET=YES»CHNASSY = YE5» 
NETNAME=P70LU2>GMMSG=YES 

LU73 DFHTCT TYPE=TERMINAL,TRMIDNT=LU73,TRMTYPE=3790, 

ACCMETH=VTAM,TIOAL=(256,1024),RUSIZE=256, 
TRMSTAT=TRANSCEIVE,RELREQ=(YES,YES)>PGESTAT=PAGE» 
PGESIZE=(12,80),BUFFER=256,BRACKET=YES,CHNASSY=YES, 
LASTTRM=VTAM,SESTYPE=USERPR0G,NETNAME=P70LU3 
DFHTCT TYPE=FINAL 
END DFHTCTBA 
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SNA APPLICATION INTERFACE (IMS) 


IMS/VS NUCLEUS GENERATION 


TITLE ’IMS/VS 1.1.5 FIELD TEST LEVEL XX IMS5 XX’ 


IMSCTRL SYSTEM s (VS/2»ALL,3.7)» X 

MAXIO=(50,20), X 

MAXREGN=(5,256K), X 

MAXCLAS=10, X 

IMSID=IMS5, 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

COMM RECANY=(6,3842), X 

APPLID=IMS, X 

SECCNT=3, x 

OPTIONS=(NOPSWD, X 

TERMINAL, X 

PAGING, x 

TIMESTAMP, X 

4096, X 

FMTMAST , X 

NOUSEMSG, X 

NOMSTEX, X 

NOMSPEX, X 

NOCIPH, X 

VTAMAUTH, X 

BLKREQD) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

IMSCTF SVCN0=(236,237,238) , X 

APNDG=(25), x 

CPLOG=9000, X 

CORE=(16,200,4,2), X 

LOG=(SNGL,MONITOR), X 

DYLOG=(3330,2043,4) 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

SPAREA C0RE=(3,4096),DASD=C15,6144) 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 
X 
X 


BUFPOOLS PSB=12000, 
PSBW=12000, 
DMB=12000, 
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DBASE=20000, X 

GENERAL=20000, X 

FORMAT=10000» x 

COMM=30000 , X 

FRE=50 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

MS6QUEUE DSETS=(3330,3330,3330), X 

RECLNG=(192,2304) , X 

BUFFERS 3 (50,2304), X 

SHUTDWN=10 


TITLE ’DATABASE DEFINITIONS’ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx DATABASES FOR DATA DICTIONARY xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DATABASE DBD=DDSPDTE 
DATABASE DBD=DDSPSEG 
DATABASE DBD=DDSPDBS 
DATABASE DBD=DDSPPCB 
DATABASE DBD=DDSPSYS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXXX DATABASES FOR IMS SAMPLE PROGRAM XXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DATABASE DBD=DI21PART 

TITLE ’TRANSACTION DEFINITIONS’ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx DATABASES FOR IMS ADF AND HOTLINE SYSTEM XXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

DATABASE DBD=MFDPAR01 
DATABASE DBD=MFDPSP01 
DATABASE DBD=MFDPMS01 
DATABASE DBD=HOTLDATA 
DATABASE INDEX,DBD=HOTLINDX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx PSB’S AND TRANSACTIONS FOR DATA DICTIONARY xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

APPLCTN PSB=DBDIMSOV,PGMTYPE=(TP,OVLY) 

TRANSACT CODE=DBDIMSOV,SPA=(2816,CORE,FIXED),MODE=SNGL 
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SNA APPLICATION INTERFACE (IMS) 


APPLCTN PSB=DBDIMSD,PGMTYPE=(TP,OVLY) 

TRANSACT CODE~DBDIMSD>SPA-(2816*CORE*FIXED),MODE s SNGL 

APPLCTN PSB=DBDIMSP,PGMTYPE=(TP,OVLY) 

TRANSACT C0DE=DBDIMSP,SPA=(712,CORE,FIXED),MODE=SNGL 

APPLCTN PSB=DBDIMSR,PGMTYPE=(TP,OVLY) 

TRANSACT C0DE=DBDIMSR,SPA=(432,CORE,FIXED),MODE=SNGL 

APPLCTN PSB=DBDIMSU,PGMTYPE=(TP,OVLY) 

TRANSACT C0DE=DBDIMSU,SPA s (432,CORE,FIXED),MODE=SNGL 

APPLCTN PSB=DBDIMSB,PGMTYPE=BATCH 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxx PSB'S AND TRANSACTIONS FOR IMS/VS SAMPLE PROBLEM xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

APPLCTN RESIDENT,PSB=DFSSAM02, X 

PGMTYPE=(TP,,1) 

TRANSACT CODE=PART, X 

PRTY=(7,10,2), X 

INQUIRY=YES, X 

MODE-SNGL 

APPLCTN RESIDENT,PSB=DMSPART, FOR DMS/3770 X 

PGMTYPE=(TP,,1) COPY OF DFSSAM02 

TRANSACT CODE=PARTDMS, MODIFIED FOR USE WITH X 

PRTY=(7,10,2), A DMS/3770 FP X 

SPA = (300,CORE) 

APPLCTN RESIDENT,PSB-DFSSAM03, X 

PGMTYPE=(TP,,1) 

TRANSACT CODE=DSPINV, X 

PRTY=C7,10,2), X 

INQUIRY=YES» X 

MODE-SNGL 

APPLCTN RESIDENT,PSB=DFSSAM04, X 

PGMTYPE=(TP,,1) 

TRANSACT CODE=ADDPART, X 

PRTY=(7,10,2), X 

INQUIRY=NO, X 

MODE-SNGL 

TRANSACT CODE=ADDINV, X 

PRTY=(7,10,2), x 

INQUIRY=NO, X 

MODE=SNGL 

TRANSACT CODE=DLETPART, x 

PRTY=C7,10,2), X 

INQUIRY=NO, X 

MODE=SNGL 
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TRANSACT CODE=DLETINV, X 

PRTY=(7,10,2), X 

INQUIRY=NO» X 

MODE=SNGL 

APPLCTN RESIDENT,PSB=DFSSAM05, X 

PGMTYPE=(TP,,1> 

TRANSACT CODE=CLOSE, X 

PRTY=(7,10,2), X 

INQUIRY=NO, x 

MODE=SNGl 

APPLCTN RESIDENT,PSB=DFSSAM06» X 

PGMTYPE=(TP,,1) 

TRANSACT CODE=DISBURSE, x 

PRTY=(7,10,2), X 

INQUIRY=NO» X 

MODE=SNGL 

SPACE 3 

APPLCTN RESIDENT,PSB=DFSSAM07, X 

PGMTYPE=(TP,,1) 

TRANSACT CODE=DSPALLI , X 

PRTY=(7,10,2>, X 

INQUIRY=YES, X 

MODE=SNGL 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
TRANSACTIONS FOR NDS PRINTER SUPPORT 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
APPLCTN PSB=FORMSET,PGMTYPE=TP 
TRANSACT CODE=FORMSET,MODE=SNGL 
APPLCTN PSB=APAK,PGMTYPE=TP 
TRANSACT CODE=APAK,MODE=SNGL 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SPACE 3 

TITLE ’TERMINAL DEFINITIONS’ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx TERMINAL DEFINITIONS XXXXX 

xxxxx xxxxx 

xxxxx LOCAL READER, PUNCH, PRINTER, SPOOL xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

PRINTER LINEGRP DDNAME=PRINTER, X 

UNITYPE=PRINTER 
LINE ADDR=00F 
TERMINAL 
NAME PRINTER 
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SNA APPLICATION INTERFACE (IMS) 


READER LINE6RP DDNAME=READER, * 

UNITYPE=READER 
LINE ADDR=01C 
TERMINAL LTERM=PRINTER 

PUNCH LINEGRP -J)DNAME=PUNCH> X 

UN„ITYPE=PUNCH 
LINE ADDR=01D 
TERMINAL 

NAME SP00L2 -FOR DATA DICTIONARY 

SPOOL LINEGRP DDNAME=(SPL1,SPL2,SPL3), X 

UNITYPE=SPOOL 
LINE BUFSIZE=1420 
TERMINAL FEAT=AUTOSCH 

NAME SPOOL1 -FOR DATA DICTIONARY 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XX BTAM 3770/2770 TERMINAL DEFINITION xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LINEGRP DDNAME=BSC3770P,UNITYPE=2770,CODE=EBCDIC 

LINE ADDR=074>FEAT=BUFEXP 

TERMINAL ADDR=Cl,COMPT=(PTR,CARD,PTR),FEAT=(1,BUFEXP) 

NAME PTR3770,COMPT=1 
NAME PCH3770»COMPT=2 
NAME DSK3770,COMPT=3 
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SNA APPLICATION INTERFACE (IMS) 


IMS REMOTE 3770 

TYPE UNITYPE=SLUTYPE1 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXkXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xx 3770 PROGRAMMABLE DEFINITIONS FOR BATCH LU (1) xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


P70LU1 TERMINAL NAME=P70LU1, NAME CHANGE FOR ABOVE LU 

COMPTl=CONSOLE» 

C0MPT2=(TRANSDS1,MFS-SCS2), 

C0MPT3=(PRINTDS1,MFS-SCS1), 

C0MPT4=USERDS1 
NAME P70CON 
NAME P70TRAN,ICOMPT=2 
NAME P70INTR»COMPT=3 
NAME P70USER,ICOMPT=4 
NAME P7 0USER1,C0MPT=4 
NAME P7 0USER2»C0MPT = 4 


x 

x 

x 

x 


C70LU1 TERMINAL NAME=C70LU1, SAME LU AS P70LUI BUT X 

COMPT1=CONSOLE, BECAUSE OF 4 COMP LIMIT IN X 

C0MPT2=CREADER1,MFS-SCS2), IMS, NEED THIS FOR CARD x 
C0MPT3=(PUNCH1,MFS-SCS2>, SUPPORT X 

C0MPT4=USERDS1 
NAME C70CON 
NAME C70RDR,IC0MPT=2 
NAME C70PUN,COMPT=3 
NAME C70USER,IC0MPT = 4 
NAME C70USER1,C0MPT=4 
NAME C70USER2,COMPT=4 
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SNA APPLICATION INTERFACE (INS) 


INS LOCAL 3274 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


XX 3274-1A SNA CHANNEL ATTACHED PRINTERS XXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LHAPA07 TERNINAL NANE=LHAPA07, X 

C0NPT1=(C0NS0LE,BASIC-SCS1), X 

MODETBL=SCS, X 

0UTBUF=768 
NANE LHAPA07 

LHAPA08 TERNINAL NANE S LHAPA08, X 

C0NPT1=(C0NS0LE,NFS-SCS1), X 

0UTBUF=768 
NANE LHAPA08 


INS RENOTE 3274 PRINTERS 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXX 


XX 3274-1C SDLC ATTACHED PRINTERS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SDLCPA07 TERNINAL NANE=SDLCPA07, X 

C0MPT1=(CONSOLE,BASIC-SCS1), X 

NODETBL=SCS, X 

0UTBUF=768 
NANE SDLCPA07 

SDLCPA08 TERNINAL NANE-SDLCPA08, X 

CONPTl=(CONSOLE»NFS-SCSl)» X 

0UTBUF=768 
NANE SDLCPA08 
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SNA APPLICATION INTERFACE (INS) 


INS RENOTE 3276 PRINTER 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


xx 3276 SDLC ATTACHED PRINTERS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SPACE 4 

SDLC76P7 TERNINAL NAME=SDLC76P7, X 

C0MPT1=(C0NS0LE, BASIC-SCS1)> X 

MODETBL=SCS, X 

0UTBUF=768 
NAME SDLC76P7 

SDLC76P8 TERMINAL NAME=SDLC76P8, x 

C0MPT1=(C0NS0LE>MFS-SCS1) , X 

0UTBUF=768 
NAME SDLC76P8 


IMS REMOTE 3790 PRINTERS 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XX NODE=BP379011 LTERM=BPI1 3790 BULK PRINT 1 xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BP379011 TERMINAL NAME=BP379011, X 

C0MPT1=CPRINTER1,MFS-SCS1), X 

M0DETBL=BLK3790 
NAME BP11 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XX NODE=BP379012 LTERM=BP12 3790 BULK PRINT 2 xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BP379012 TERMINAL NAME=BP379012, X 

C0MPT1=(PRINTER1*BASIC-SCS1)» X 

M0DETBL=BLK3790 
NAME BP12 


IMS REMOTE 3790 TYPE 2 BATCH 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx 3790 TYPE 2 BATCH xxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
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SNA APPLICATION INTERFACE (IMS) 


BT379011 TERMINAL NAME 2 BT379011, * 

C0MPT1=(PRINTER1,MFS-SCS1), X 

C0MPT2=(PRINTDS1»MFS-SCS1)» X 

COMPT3 2 (TRANSDS1>MFS“SCS2)> X 

SEGSIZE=256» X 

0UTBUF=256 > X 

MODETBL=BAT23790 » X 


OPTIONS s (NORESP>OPNDST*NBSELM*NODISCON) 
NAME BT11MSG,C0MPT=1 
NAME BTUPDS,C0MPT=2 
NAME BT11TDS*IC0MPT S 3 


BT3790I2 TERMINAL NAME 2 BT379012* 

COMPT1=(PRINTER1»MFS-SCS1), 

COMPT2 2 (PRINTDS1,MFS-SCS1), 
C0MPT3=(TRANSDS1,MFS-SCS2), 
SEGSIZE=256» 

OUTBUF=256, 

MODETBL=BAT23790* 

OPTIONS s (NORESP*OPNDST*NBSELM*DISCON) 
NAME BT12MSG,C0MPT=1 
NAME BT12PDS,C0MPT=2 
NAME BT12TDS,IC0MPT=3 


X 

X 

x 

x 

x 

x 

x 


IMS SLUTYPE2 DISPLAYS 

TYPE UNITYPE=SLUTYPE2 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


XXXXX 3274-1A SNA CHANNEL ATTACHED DISPLAYS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LHAPA01 TERMINAL NAME=LHAPA01, 3278-1 X 

TYPE = 327 0-A1*SIZE=(12*80)* X 

FEAT=IGNORE> X 

OPTIONS 1 (TRANRESP*COPY * PAGDEL *OPNDST)* x 

0UTBUF=1536 
NAME LHAPA01 

LHAPA02 TERMINAL NAME=LHAPA02, 3278-4 X 

TYPE=3270-A4,SIZE=(43,80), X 

FEAT=IGNORE, x 

OPTIONS 2 (TRANRESP»COPY»PAGDEL,OPNDST), x 

0UTBUF S 1536 
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SNA APPLICATION INTERFACE (IMS) 


NAME LHAPA02 
SPACE 4 

LHAPA03 TERMINAL NAME=LHAPA03, 3278-3 X 

TYPE=3270-A3,SIZE=(32,80), X 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP»COPY,PAGDEL,OPNDST), X 

0UTBUF=1536 
NAME LHAPA03 

LHAPB01 TERMINAL NAME=LHAPB01, 3277-2 X 

TYPE=3270-A2,SIZE=(24,80), X 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST), X 

0UTBUF=1536 
NAME LHAPB01 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxx 3274-1C SDLC ATTACHED DISPLAYS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

SDLCPA01 TERMINAL NAME=SDLCPA01» 3278-4 X 

TYPE=3270-A4,SIZE=(43,80), x 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST) , X 

0UTBUF=3600 
NAME SDLCPA01 

SDLCPA02 TERMINAL NAME=SDLCPA02, 3278-4 X 

TYPE=3270-A4,SIZE=<43,80), x 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST), X 

OUTBUF=3600 
NAME SDLCPA02 

SDLCPA03 TERMINAL NAME=SDLCPA03, 3278-3 X 

TYPE=3270-A3,SIZE=(32,80), X 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST), x 

OUTBUF=3600 
NAME SDLCPA03 

SDLCPA04 TERMINAL NAME=SDLCPA04, 3278-3 X 

TYPE=3270-A3,SIZE=(32,80), X 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPV,PAGDEL,OPNDST), x 

OUTBUF=3600 
NAME SDLCPA04 

SDLCPB01 TERMINAL NAME=SDLCPB01, 3277-2 X 
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SNA APPLICATION INTERFACE (IMS) 


TYPE=3270-A2,SIZE=(24,80), X 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST), X 

OUTBUF=3600 
NAME SDLCPB01 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxx 3276 SDLC ATTACHED DISPLAYS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
SDLC76P1 TERMINAL NAME=SDLC76P1, 3276-12 x 

TYPE=3270-A2,SIZE=(24,80), x 

FEAT=IGNORE, X 

OPTIONS=(TRANRESP,COPY,PAGDEL,OPNDST), x 

OUTBUF=3600 
NAME SDLC76P1 

SDLC76P2 TERMINAL NAME=SDLC76P2, 3278-2 X 

TYPE=3270-A2,SIZE=(24,80), X 

FEAT=IGNORE, X 

OPTIONS 5 (TRANRESP,COPY,PAGDEL,OPNDST) , X 

OUTBUF=3600 
NAME SDLC76P2 
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SNA APPLICATION INTERFACE (IMS) 


IMS REMOTE 3790 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
xxxxx 3790/3270 COMPATIBILITY MODE - 3790 xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CM379011 TERMINAL NAME=CM379011, x 

M0DEL=2, X 

FEAT=(PFK,NOCD,PEN) , X 

OPTIONS=(TRANRESP,COPY,PAGDEL»OPNDST)» x 

0UTBUF=1536 
NAME CMI1 


IMS REMOTE 3770 PROGRAMMABLE 

TYPE UNITYPE=SLUTYPEP 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx SLUTYPEP - 3770 SNA PROGRAMMABLE COMMUNICATIONS xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

BA3770PV TERMINAL NAME=BA3770PV, OLD NAME FOR PC SESSION X 

MSGDEL=SYSINFO, DELETE THIS TERMINAL AFTER X 

COMPTl=(PROGRAMl,BASIC), NCP HAS P70LU2 DEFINED X 

OPTIONS=(FORCRESP,PAGDEL»OPNDST,OPTACK,BID), X 

0UTBUF=256, x 

SEGSI2E=256 
NAME I.SNAPC70 

P70LU2 TERMINAL NAME=P70LU2, x 

MSGDEL=SYSINFO, x 

COMPTl=(PROGRAMl,BASIC), X 

OPTIONS=(FORCRESP,PAGDEL,OPNDST,OPTACK,BID), X 

0UTBUF=256, X 

SEGSIZE=256 
NAME P70PC2 

P70LU3 TERMINAL NAME=P70LU3, X 

MSGDEL=SYSINFO, X 

COMPTl=(PROGRAMl,BASIC), X 

OPTIONS=(FORCRESP,PAGDEL,OPNDST,OPTACK,BID) , X 

0UTBUF=256, X 

SEGSIZE=256 
NAME P70PC3 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxx xxxxx 

XXXXX SLUTYPEP - 3790 USER PROGRAMS - 3790 XXXXX 

xxxxx xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

UP379011 TERMINAL NAME=UP379011, X 

MSGDEL=SYSINFO, X 

C0MPT1=(PR0GRAM1,BASIC), X 

OPTIONS=(FORCRESP,PAGDEL,OPNDST,OPTACK,BID), X 

0UTBUF=256, X 

SEGSIZE=256 
NAME UP11P1 

TITLE ’TERMINAL DEFINITIONS - 3790 INQUIRY' 

TYPE UNITYPE=3790 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
XXXXX 3790 INQUIRY XXXXX 

xxxxx xxxxx 

xxxxx NODE-INQ02 LTERM=INQ02 xxxxx 

xxxxx xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

INQ02 TERMINAL NAME=INQ02, X 

OUTBUF=256, X 

OPTIONS=(NOPNDST) 

NAME INQ02 
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SNA APPLICATION INTERFACE (IMS) 


IMS REMOTE 3270 

* 

TYPE UNITYPE=3270 xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx VTAM 3270 TERMINAL DEFINITIONS xxxxx 

xxxxx xxxxx 

xxxxx SDLC 3271 CONTROLLER xxxxx 

xxxxx xxxxx 

XXXXX NODE=LU3270V0 LTERM=LU3270V0 3277 xxxxx 

xxxxx NODE=LU3270V7 LTERM=LU3270V7 3286 xxxxx 

xxxxx xxxxx 

xxxxx xxxxx 

XXXXX LOCAL 3270 CONTROLLER xxxxx 

xxxxx xxxxx 

xxxxx NODE=LU4C0 LTERM=LU4C0 3277 xxxxx 

xxxxx xxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

LU4C0 TERMINAL NAME=LU4C0, x 

UNIT 2 3277, X 

MODEL=2, x 

FEAT=(PFK»NOCD»PEN), X 

OPTIONS 2 (TRANRESP,PA6DEL,OPNDST) 

NAME LU4C0 

LU3270V0 TERMINAL NAME=LU3270V0, X 

UNIT=3277, x 

M0DEL=2, x 

FEAT=(PFK» NOCD,PEN) » X 

OPTIONS 2 (TRANRESP»C0PY»PA6DEL»OPNDST) 

NAME LU3270V0 

LU3270V7 TERMINAL NAME=LU3270V7, X 

UNIT=3286 , x 

MODEL=2, X 

PTRSI2E=120 
NAME LU3270V7 
TITLE ' 1 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
IMSGEN SUFFIX=0, x 

N0DE=(IMS115,IMS115,IMS115) » X 
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SNA APPLICATION INTERFACE (IMS) 

0BJDSET=IMS115.OBJSUFO, X 

USERLIB=IMS115.RESLIB, X 

MACLIB=UTILITY, X 

PROCLIB=NO, X 

ASM=H, X 

ASMPRT=ON, X 

LKPRT=(XREF,LIST),LKSIZE=(300K,60K),LKRGN=400K, X 

JCL=(YGH1,(3MD3665L00065Y),IMS,A,(REGION=2048K,MSGLEVEL=X 
1»CLASS=N))» X 

SCL=(1) 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXX END OF SYSTEM DEFINITION FOR IMS5 XXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

END 
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